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INTRODUCTION 


This manual provides a complete description of COBOL (COMMON 
BUSINESS ORIENTED LANGUAGE) as implemented for use on the Burroughs 
B 2500/B 3500 Electronic Data Processing Systems. This concept of 
COBOL embraces the adoption of proposed American National Stan- 


dards Institute (ANSI) COBOL-68. 


COBOL's long list of advantages is derived chiefly from its in- 
trinsic quality of permitting the programmer to state the problem 
solution in English. The programing language reads much like or- 
dinary English prose, and can provide automatic program and system 
documentation. When users adopt in-house standardization of ele- 
ments within files, plus well chosen data-names, before attempting 
to program a system, they obtain maximum documentational advantages 


of the language described herein. 


To a computer user, the Burroughs B 2500/B 3500 COBOL offers the 


following major advantages: 
a. Expeditious means of program implementation, 


bh. Accelerated programmer training and simplified 


retraining requirements. 


c. Reduced conversion costs when changing from a computer 


of one manufacturer to that of another. 
d. Significant ease of program modification. 
e. Standardized documentation. 


ff. Documentation which facilitates non-technical management 


participation in data processing activities. 
g. Efficient object program code. 


h. Segmentation capability which sets the maximum allowabte 


program size well in excess of any practical requirement. 


i. Due to the incorporation of debugging language statements, 
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a high degree of sophistication in program design is 


achieved. 
j- A comprehensive source program diagnostic capability. 


A program written in COBOL, called a source program, is accepted 

as input by the B 2500/B 3500 COBOL Compiler. The compiler veri- 
fies that all rules outlined in this manual are satisfied, and 
translates the source program language into an object program 
language capable of communicating with the computer and directing 

it to operate on the desired data. Should source corrections become 
necessary, appropriate changes can be made and the program recom- 
piled. Thus, the source deck always reflects the object program 


being operationally executed. 


A COBOL source program is always divided into four parts or DIVI- 


STONS in the following order: 


IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 

PROCEDURE DIVISION. 


The purpose of the IDENTIFICATION DIVISION is to identify the pro- 


gram and to include an overall description of the program. 


The ENVIRONMENT DIVISION consists of two sections. The Configu- 
ration Section specifies the equipment being used. The Input- 
Output Section associates files with the hardware devices that will 
be used for their operation. This section also furnishes the com- 


piler with information about mass storage parameters. 


The DATA DIVISION is used to describe data elements which the object 
program is to manipulate or create. These data elements may be items 


within files, records or program work areas, and constants. 


The PROCEDURE DIVISION defines the necessary steps which will accom- 
roth awn a Eo an * 
WiliCle VRoL cL VASILE Vil 


DATA DIVISION. 


xVL 


This publication supercedes and replaces the Burroughs B 2500/ 
B 3500 COBOL Language Manual Form 1027406 dated June, 1968. 
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SECTION 1 
COBOL LANGUAGE ELEMENTS 


GENERAL. 

It has been stated that COBOL is a language based on English and 
that the language is composed of words, statements, sentences, 
Paragraphs, etc. The following paragraphs define the rules to 
be followed in the creation of this language. The use of the 
different constructs formed from the created words is covered in 


subsequent sections of this document. 


CHARACTER SET. 
The B 2500/B 3500 COBOL character set consists of the following 


53 characters: 


space or blank 
+ plus sign 
- minus sign or hyphen 


asterisk 


Nx 


slash (virgule) 


equal sign 

dollar sign 

; comma 

é period or decimal point 
; semicolon 

" quotation mark 

( left parenthesis 

) right parenthesis 

> greater than symbol 
< less than symbol 

3 colon 


@ at sign 


CHARACTERS USED FOR WORDS. 
The character set for words consists of the following 37 char- 


acters: 
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- (hyphen) 


PUNCTUATION CHARACTERS . 


The following characters may be used for punctuation: 


@ at sign space or blank 
7 quotation mark % period 
left parenthesis : comma (see note below) 
) right parenthesis ; semicolon (see note below) 
NOTE 


Commas and semicolons may be used 
between statements, at the program- 
mer's discretion, for enhanced read- 
ability of the source program. Use 
of these characters implies that a 
following statement is to be included 


as a portion of an entire statement. 


CHARACTERS USED IN EDITING. 
The COBOL Compiler accepts the following characters in editing: 


$ dollar sign + plus 

* asterisk (check protect) - minus 

: comma CR credit 

7 actual decimal point DB debit 

B space Z zero suppress 
OQ zero 


CHARACTERS USED IN FORMULAS . 
The COBOL Compiler accepts the following characters in arithmetic 


expressions: 


+ addition ee exponentiation 

~ subtraction ( left parenthesis 

* multiplication ) right parenthesis 
division 


CHARACTERS USED IN RELATIONS. 


The COBOL Compiler accepts the following characters in conditional 


relations: 


equal 
< less than 
> 


greater than 


DEFINITIONS OF WORDS. 
A word is created from a combination of not more than 30 charac- 


ters, selected from the following: 


A through Z 
O through 9 
- (the hyphen) 


A word is ended by a space, or by a period, comma, or semicolon. 
A word may not begin or end with a hyphen. (A literal constitutes 


an exception to these rules, as explained later.) 


TYPES OF WORDS. . 
COBOL (like English) contains types of words. These word. types 


are: 
a. Nouns. 
b. Verbs. 
Cc. Reserved words. 
NOUNS. 


Nouns are divided into nine special categories: 


a. File-names. 

b. Record-names. 

c. Data-~names. 

d. Condition-names. 
e. Procedure-names. 
£. Literals. 


g. Figurative constants. 
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h. Special register names. 


i. Special names. 


Since the noun is a word, its length may not exceed thirty char- 
acters (exception: literals may not exceed 160 characters). For 
purposes of readability, a noun may contain a hyphen. However, 
the hyphen may neither begin nor end the noun (this does not apply 
to literals). 


FILE-NAME.. A file-name is a collective name or word assigned to 
designate a set of data items. The contents of a file are divided 
into logical records that in turn are made up of any consecutive 


set of data items. 


RECORD-NAME. A record-name is a noun assigned to identify a logi- 
cal record. A record can be sub-divided into several data items, 


each of which is distinguishable by a data-name. 


DATA-NAME. A data-name is a noun assigned to identify elements 
within a record or work area and is used in COBOL to refer to an 
element of data, or to a defined data area containing data elements. 
EFach data-name must be composed of at least one alphabetical char- 


acter. 


CONDITION-NAME. A condition-name is a special data-name which 

is assigned to a specific value within a set of vaiues. For iiius- 
trating a condition-name, consider this example. If THIS-YEAR 
identifies the tweive months of a year, whereas its subordinate 
data items are defined as JANUARY, FEBRUARY, etc., and the values 
assigned to each month range from Ol to 12, then it follows that 
JUNE would have the assigned value of 06. Using the condition-name 
JUNE, the programmer can utilize it in conditional statements as 


follows: 
IF JUNE GO TO... e 


ly aquivalent to the statement: 
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IF THIS-YEAR IS EQUAL TO 06 GO TOe 38 se tg, andp 


Asa conditional-name, the special data-name itself igs called a 
conditional-variable. The value that it may assume is referred to 
by condition-names. The condition-name is formatted according to 


noun rules and may be used only in conditional statements. 


PROCEDURE-NAME. A procedure-name is either a paragraph-name or 
section name, and is formulated according to noun rules. The ex- 
ception is that a Pprocedure-name may be composed entirely of nu- 
meric characters. Two procedure-names are identical only if they 
both consist of the same character strings. For example: . proce- 


dure-names 007 and 7 are not equivalent. 


LITERALS... A literal is an item of data which contains a value iden- 
tical to the characters being described. There are three classes 


of a literal: numeric, non-numeric, and undigit. 


Numeric Literal. 
A numeric literal is defined as an item composed of characters 
chosen from the digits 0 through 9, the plus sign (+) or minus 


sign (-), and the decimal point. The rules for the formation of 


a numeric literal are: 


a. Only one sign character and/or more than one decimal 
point may be contained in a numeric literal for use 


with Sterling. Left-most decimal determines the scale. 


NOTES 
A comma must be substituted for the dec- 
imal point if the DECIMAL-POINT IS COMMA 
option is used (see SPECIAL-NAMES in the 
ENVIRONMENT DIVISION). 


The implied USAGE of numeric literals is 
COMPUTATIONAL except when used with the 
verbs DISPLAY or STOP. 
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b. There must be at least one digit in a numeric literal. 


character. If no sign is present, the literal is defined 


as a positive value. 


d. The decimal point may appear anywhere within the literal 
except for the right-most character of a numeric literal. 
A decimal point within a numeric literal is treated as an 
implied decimal point. Absence of a decimal point de- 
notes an integer quantity. (An integer is a numeric 


literal which contains no decimal point.) 


e. A numeric literal used for arithmetic manipulations 
cannot exceed 99 signed digits, otherwise, the maximum 
is 160 digits. The following are examples of numeric 


literals. 


13247 
-005 
+1,808 
- .0968 
7894.54 


Non-Numeric Literal . 

A non-numeric literal may be composed of any allowable character. 
The beginning and end of a non-numeric literal is denoted by a 
quotation mark. Any character enclosed within quotation marks is 
part of the non-numeric literal. Subsequently, all spaces enclosed 
within the quotation marks are considered part of the literal. Two 
consecutive quotation marks within a non-numeric literal cause a 
single quote to be inserted into the literal string. Four conse- 


cutive quotation marks will result in a single " literal. 


A non-numeric literal cannot itself exceed 160 characters. Examples 


of non-numeric literals are: 


Literal on ggurce program level Literal stored by compiler 


"ACTUAL SALES FIGURE" ACTUAL SALES FIGURE 
"1234.567" -1234.567 
OMMETMIPATTIONS "*" "LIMITATIONS" 
"ANNUAL DUES* ANNUAL DUES 
nett t" 
NAN MBA A"B 

NOTE 


Literals that are used for arithmetic computa- 
tion must be expressed as numeric literals and 
must not be enclosed in quotation marks as non- 
numeric literels. For example, "-7.7" and -7.7 
are not equivalent. The compiler stores the non- 
numeric literal as -7.7, whereas the numeric lit- 
eral would be stored as 0077 if the PICTURE were 
S999V9 DISPLAY with the assumed decimal point 


lecated between the two sevens. 


Undigit Literals. 

Binary 10 through 15 are represented as A through F and must be 
bounded by @ signe. For example, binary 11 would be literalized 
by @B@. An umddgit literal cannot exceed 160 digits. Refer to 


section 7 fer the correct declaration. 


FIGURATIVE CONSTANT. A figurative constant is a particular value 
that has been assigned a fixed data-name and must never be enclosed 
in quotation marke except when the word, rather than the value, is 


desired. The figurative constant names and their meanings are: 


ZERO Represents the value of QO. 

ZEROS 

ZEROES 

SPACE | Represents one or more spaces (blanks). 

SPACES 

HIGH- VALUE Represents the highest internal coding 

HIGH REUES sequence (i.e., 999) value. When HIGH-VALUES a 
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LOW- VALUE 
LOW-VALUES 


QUOTE 


QUOTES 


are moved to a signed numeric computa-~ 
tionai field, the sign will not be 


changed. 


Represents the lowest internal coding 
sequence (blanks ) value. When LOW- 
VALUES are moved to a signed numeric 
computational field, the sign will not 


be changed. 


Represents one or more of the single 
character " (quotation mark). The word 
QUOTE or QUOTES does not have the same 
meaning in COBOL as the symbol ", For 
example, if "STANDARDS" appears as part 
of the COBOL source program, the word 
STANDARDS is stored in the object pro- 
gram. If however, the full "STANDARDS" 
is desired in a DISPLAY statement, it 
can be achieved by writing QUOTE "STAN- 
DARDS" QUOTE, in which case the object 
program will print "STANDARDS". The 
same result can be obtained by writing 
"""STANDARDS""" in the source program. 
Oniy the latter method can be used in 


MOVE statements and conditionals. 


When followed by a non-numeric literal 
or a figurative constant, the word ALL 
represents a series of that literal. 
For example, if the COBOL statement is 
MOVE ALL iiteral TO ERROR-CODE, then 
the resultant ERROR-CODE would take on 


the following values: 


ALL literal Size of ERROR-CODE Resulting value of 
ERROR-CODE 


ALL "ABC" 7 characters ABCABCA 

ALL "3" or ALL 3 . 5 characters 33333 

ALL "HI-LO" 12 characters HI-LOHI-LOHT 

ALL QUOTE 3 characters een 

ALL SPACES 9 characters (nine spaces) 
Revised 9/28/70 
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NOTE 
The use of ALL with figurative constants, 
as illustrated in the last two instances, 
is redundant. MOVE ALL SPACES and MOVE 
SPACES would yield the same result. 


SPECIAL REGISTER NAME. The Burroughs COBOL Compiler provides four 
special PROCEDURE DIVISION register names which are: 


a: TALLY: 

b. TODAYS-DATE (Calendar). 
c. DATE (Julian). 

d. TIME. . 


TALLY. 


The special register TALLY is automatically provided by the COBOL 
Compiler and has a defined length of five COMPUTATIONAL digits. 


The primary use of TALLY is in conjunction with the EXAMINE state- 
ment, however, TALLY may be used as temporary storage or an accumu- 
lative area during the interim when EXAMINE...TALLYING...is not 


being executed in a program. 


Todays-Date (Calendar) . 

This special register contains the current date and is maintained 
by the Master Control Program (MCP). Its format is made of three 
character pairs, each representing the month, day and year. For 
example, if the current date is Dec. 13th, 1968, the TODAYS-DATE 
register contains 121368. The function of TODAYS-DATE is to 
provide the programmer with a means of referring to the current 
date during program execution. TODAYS-DATE is maintained in COM- 
PUTATIONAL form. 


Date (Julian). 

This special register contains the current Julian date and is 
maintained by the MCP. Its format is YYDDD. For example, if the 
current date were January 1, 1968, the DATE register would contain 


68001. The function of DATE is to save programmatic evaluation 
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of TODAYS-DATE when Julian dates are required. DATE is maintained 
in COMPUTATIONAL form. 


Time. 

Kocese to an internal clocking register reflecting the time of day 
is programmatically available whenever TIME is requested. This 
register is maintained in milliseconds by the MCP as a 10-digit 
COMPUTATIONAL field. The contents of the TIME register will be 
maintained in hours, minutes, seconds and 60th of seconds when 
TIME 60 is declared in the OBJECT-COMPUTER paragraph. 


SPECIAL-NAMES. 

The SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION allows 

the programmer to assign a significant character for a CURRENCY 
SIGN, and to declare DECIMAL-POINT as being a COMMA and to provide 
a means of relating implementor hardware-names to mnemonic-names 


as desired by the programmer. 


VERBS. 

Another type of COBOL word is a verb. A verb in COBOL is a single 
word that denotes action, such as ADD, WRITE, MOVE, etc. All 
allowable verbs in COBOL, with the exception of the word IF, are 
truly English verb The usage of the COBOL verbs takes place 


Se 
primarily within the PROCEDURE DIVISION 


Vwi es 


RESERVED WORDS. 


The third type of COBOL word is a reserved word. Reserved words 
have a specific function in the COBOL language and cannot be used 
out of context, or for any other purpose than the one for which 
they were intended. Reserved words are for syntactical purposes 


and can be divided into three categories: 


a. Connectives. 
b. Optional words. 


c. Key words. 


A complete list of reserved words in COBOL used by the compiler is 


included in Appendices A and E. 


110 
a ad 


CONNECTIVES. Connectives are used to indicate the presence of 
a qualifier or to form compound conditional statements. The con- 
nectives OF and IN are used for qualification. On the other hand, 
AND, AND NOT, OR, or NOT are used as logical connectives in con- 


ditional statements. 


OPTIONAL WORDS. Optional words are included in the COBOL language 
to improve the readability of the statement formats. These op- 
tional words may be included or omitted, as the programmer wishes. 
For example, IF A IS GREATER THAN B... is equivalent to IF A 
GREATER B..... Therefore, the inclusion or omission of the words 


IS and THAN does not influence the logic of the statement. 


KEY WORDS. The third kind of reserved words is referred to as 
being a key word. The category of key words includes the verbs and 
required words needed to complete the meaning of statements and 
entries. The category also includes words that have a specific 
functional meaning. In the example shown in the above paragraph, 


the words IF and GREATER are key words. 


STATEMENT AND SENTENCE FORMATION. 

Statements are formed by the completion of the various entry and 
verb constructs discussed in the later sections of this manual. 

A statement may be terminated by a period and thus become a sen- 
tence. A group of statements, terminated by a period, forms a 
sentence. An example of a sentence made up of a group of state- 
ments would be MOVE A TO B, ADD O1 TO COUNTER WRITE SUMMARY. Note 
that the word THEN can be used interchangeably with the semi-colon 


or comma. 


PARAGRAPH FORMATION. 


One or more sentences may comprise a paragraph. A paragraph begins 
with a paragraph name and is terminated by the paragraph name of 


the next paragraph. 
SECTION FORMATION. 


One or more paragraphs may formulate a section. A section includes 


Revised 9/28/70 
by PCN 1033099-004 1-11 


all paragraphs between one section name and a following section 
name or the end of the source program. The method of referring to 
procedures within sections and transferring of operational control 


to these procedures is discussed in the PROCEDURE DIVISION section. 


NOTATION USED IN VERB AND ENTRY FORMATS. 


The notation conventions that follow enable the reader to inter- 


pret the COBOL syntax presented in this manual. 


KEY WORDS, 

All underlined upper case words are key words and are required when 
the functions of which they are a part are utilized. Their omis- 
sion will cause error conditions at compilation time. An example 


of key words is as follows: 


ALPHABETIC 
The key words are: IF, NOT, NUMERIC, and ALPHABETIC. 


OPTIONAL WORDS. 

All upper case words not underlined are optional words and are 
included for readability only and may be included or excluded in 
the source program. In the example above, the optional word is: 
Ts. 


LOWER CASE WORDS. 
All lower case words represent generic terms which must be supplied 
in that format position by the programmer. Integer-1 and integer-2 


are generic terms in the following example: 


FILE-LIMIT IS integer-1 THRU integer-2 


BRACES. 

When words or phrases are enclosed in braces {}, a choice of one 

of the entries must be made. In reference to the key words example 
abUVE, Uiie UL tlie Uttier Uf LUlie words NUMERIC of ALFHADETIC must be 


included in the statement. 


jn 
i 
j= 

nwo 


BRACKETS. 


Words and phrases enclosed in brackets [ ] represent optional por- 
tions of a statement. If the programmer wishes to include the 
optional feature, he may do so by including the entry shown between 
brackets. Otherwise it may be omitted. In terms of the example 
above, the word enclosed in brackets is optional. However, if the 
programmer wishes to distinguish between NUMERIC and ALPHABETIC, 


he must choose one of the words enclosed in braces. 


CONSECUTIVE PERIODS. 


The presence of ellipsis Ca) within any format indicates that 
the data immediately preceding the notation may be successively 


repeated, depending upon the requirements of problem solving. 


PERIOD. 


When a single period is shown in a format, it must appear in the 
same position whenever the source program calls for the use of that 
particular statement. A space after a period is not required, how- 
ever, such a practice will enhance readability of the source pro- 


gram. 


SECTION 2 
IDENTIFICATION DIVISION 


GENERAL. 

The first part or division of the source program is the IDENTI- 
FICATION DIVISION. Its function is to identify the source program 

and the resultant output of its compilation. In addition, the date E 
the program was written, the date the compilation was accomplished, 
plus other pertinent information may be included in the IDENTIFT- 
CATION DIVISION. 


The structure of this division is as follows: 


[MONITOR... |] 


IDENTIFICATION DIVISION. 

[ PROGRAM-ID. Any COBOL word. | 
[AUTHOR. Any entry.] 

[ INSTALLATION. Any entry. | 
[DATE-WRITTEN. Any entry. | 


[ DATE- COMPILED. Any entry - replaced by the current date 
and time as maintained by the MCP. | 


[ SECURITY. Any entry.] 


[ REMARKS. Any entry. Continuation lines must be coded 


in Area B of the coding form. | 


SYNTAX RULES. , 


The following rules must be observed in the formation of the IDEN- 
TIFICATION DIVISION: 


a. The IDENTIFICATION DIVISION must begin with the reserved 
words IDENTIFICATION DIVISION followed by a period, 


b. All paragraph-names within this division must begin 


under Area A of the coding form. 


An entry following a paragraph-name cannot contain 


periods, except that one must be present to denote 


NOTES 
When DATE-COMPILED is included, 
the compiler automatically in- 
serts the time of compilation 
in the form of HH:MM and the 
date of compilation in the form 


of MM/DD/YY. 


With the exception of the DATE- 
COMPILED paragraph, the entire 
division is copied from the input 
source program by the compiler and 
listed on the output listing for 


documentationai purposes only. 


MONITOR 


MONITOR. 


This statement provides a debugging trace of specified data-names. 


Construct of this statement is: 


| wosatos [DEPENDING] file-name ( [data-nane] ae 


eee al 


This statement must begin under Area A of the coding form. The 
parentheses and colon are required as part of the source program 
statement. MONITOR is active only while the file-name is in OPEN 


status. 


Only one MONITOR statement per program is allowed and must precede 
the IDENTIFICATION DIVISION header card in the source program. 


The file-name must be ASSIGNed to a line printer and is recognized 
by the compiler as being the output media for the MONITORed data- 


names. 


The data-name(s) may be any name(s) appearing in the DATA DIVISION 


except for those which require subscripting or indexing. 


Whenever a MONTTORed elementary data-name is encountered as the 
receiving field in a MOVE or arithmetic statement, data-name 


and its current value are listed. 


The MONITORing of paragraph-names within a USE AT END OF PAGE on 
the output file that is also the MONITOR file (é6ue a3 same LINE 
PRINTER) will give undefined output when the physical End-of-Page 


condition is encountered. 


If a group item appears in the data-name-list, it will be MONTTORed 
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MONITOR 
continued 


only when explicitly used as a receiving field. 


If the DEPENDING option is present, SW6 wiil be tested for an 
ON-OFF condition. Print of MONITORed items will depend upon the 
setting as being "ON". 


All paragraph-names listed will be printed each time they are 
encountered, along with a total indicating the number of times 
that a paragraph-name has been passed. The total will be reset 
to zero whenever the paragraph-name, if in an overlayable segment, 


is overlayed in the operating program. 


The use of the ALL option, instead of the paragraph-name list, will 
cause all section and paragraph-names to be MONITORed, thus pro- 


viding a trace of the programs control path during operation. 


CODING THE IDENTIFICATION DIVISION. 

Figure 2-1 provides an illustrative example of how the IDENTIFI- 
CATION DIVISION may be coded in the source program. Note that 
continued lines must be indented to the B position of the form, 


or beyond. 


2-4 


G-z2 


BURROUGHS COBOL CODING FORM 


oa: pees a ai 


SS 


NN 
5 
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Demerendenetenr beer asa + dened retin eb he <A ob samadraeel endl meee 


Figure 2-1. Coding the IDENTIFICATION DIVISION 


SECTION 3 
ENVIRONMENT DIVISION 


GENERAL. 

The ENVIRONMENT DIVISION is the second division of a COBOL source 
program. Its function is to specify the computer being used for 
the program compilation, to specify the computer to be used for 
object program execution, to associate files with the computer 
hardware devices, and to provide the compiler with pertinent in- 
formation about disk storage files defined within the program. 
Furthermore, this division is also used to specify input-output 


areas to be utilized for each file declared in a program. 


ORGANIZATION. 

The ENVIRONMENT DIVISION consists of two sections. The CONFIGU- 
RATION SECTION contains the over-all specifications of the computer. 
The INPUT-OUTPUT SECTION deals with files to be used in the object 


program. 


STRUCTURE. 


The structure of this division is as follows: 


ENVIRONMENT DIVISION. 

[ CONFIGURATION SECTION. ] 
[ SOURCE-COMPUTER . . .] 
[ OBJECT-COMPUTER . . .] 
[SPECIAL-NAMES . . .] 

[ INPUT-OUTPUT SECTION. | 
[FILE-CONTROL .. .] 
[I-O-CONTROL . . .] 


SYNTAX RULES. 


The following syntax rules must be observed in the formulation of 
the ENVIRONMENT DIVISION: 


ae The ENVIRONMENT DIVISION must begin with the reserved 
words ENVIRONMENT DIVISION followed by a period. 


be. All entries other than the ENVIRONMENT DIVISION source i 


line are optional, but when used they must begin under 


Area A of the coding form. 


Specific definitions for the ENVIRONMENT DIVISION paragraphs are 


SOURCE-COMPUTER 


CONFIGURATION SECTION. 

The CONFIGURATION SECTION contains information concerning the 
system to be used for program compilation (SOURCE-COMPUTER ) and 
the system to be used for program execution (OBJECT- COMPUTER) . 


SOURCE-COMPUTER. 


The function of this paragraph is to allow documentation of the 


configuration used to perform the COBOL compilation. 


The construct of this paragraph is: 


B- 3500 


any entry 


| SOURCE-COMPUTER. 


Con 


This paragraph is for documentation only. 
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OBJECT-COMPUTER 


OBJECT-COMPUTER. 
The function of this paragraph is to aliow a description of the 


configuration used for the object program. 


The construct of this paragraph is as follows: 


_ [WITH SUPERVISOR CONTROL] 


WORDS 
MEMORY SIZE integer CHARACTERS [TIME 60] 
MODULES 


[ SEGMENT-LIMIT IS priority number] 


If section priority numbers are used in the PROCEDURE DIVISION, 
they must be positive integers with a value from zero through 99. 
The SEGMENT-LIMIT clause signifies the limit for non-overlayable 
program segmentation of sections numbered from 0O through 49. See 
SEGMENT CLASSIFICATION, PROGRAM SEGMENTS, AND PRIORITY NUMBERS on 
pages 5-19 through 5-23. 


WITH SUPERVISOR CONTROL is documentational only and is ignored by 


the compiler. 


The MEMORY SIZE clause is one of the factors used in determining 
the size of a COBOL object program and is normally only beneficial 
in programs containing the SORT verb or when a larger STACK is 
desired. If MEMORY SIZE is larger than the resultant COBOL object 
program, the recap at the end of the compilation will reflect the 
additional core in the size of the STACK. 


The compiler will automatically determine MEMORY SIZE when one of 


he clause is specified. The value of the integer 


OBJECT-COMPUTER 


continued 


will be multiplied times the specified option, giving a digit 


product, where: 


CHARACTERS = 2 digits 
WORDS = 4 digits 
MODULES = 1000 digits 


If a MEMORY SIZE option is not specified, the value of the integer 
entry will apply. 


The MEMORY SIZE clause, if used, does not include core requirements 
for disk file headers. In addition to the core specified in the 
MEMORY SIZE clause, an additional 250 digits of memory are required 
for each disk file. This area is reserved in increments of 1000 
digits and resides immediately behind the operating object program, 


just above the Program Limit Register, to avoid accidental destruc- 


tion by internal operations being performed by the program. 


The TIME 60 clause denotes that the contents of the internal TIME 
clocking register is to be maintained as hours, minutes, seconds 
and 60th of a second in the COMPUTATIONAL format: OOHHMMSS60, 
where 00 = zeros, HH = hours, MM = minutes, SS = seconds, 60 = 60th 


of a second. 
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| SPECIAL-NAMES 


SPECIAL-NAMES. 

The function of this paragraph is to allow the programmer to assign 
a significant character for all currency signs, to declare decimal 

points as being commas and to provide a means of relating implemen- 


tor hardware-names to user specified mnemonic-names. 


The construct of this paragraph is: 


| SPECIAL-NAMES. [ CURRENCY SIGN IS literal] 


[ implementor-name IS menmonic-name Sohal 


[ DECIMAL-POINT IS COMMA ]. 


This paragraph is required if all decimal points are to be inter- 
changed with commas and/or if all currency signs are to be re- 


presented by a character other than a dollar sign ($). 


This literal is limited to a single character and must not be one 
of the following: 


Nr eer teite ol 
Ae NUMETLC aigits o through 9. 


b. Alphabetic characters A, B, C, D, J, K, 
P, R, S, V, X, Z, or biank. 


c. Special characters * +- ° * 3; ()". 


The clause DECIMAL-POINT IS COMMA signifies that the function of 
.ccomma and period are to be exchanged in the PICTURE clause char- 


acter-string and in numeric literals. 


The implementor-name clause must be one of the allowable B 2500/ 


R 3500 CORAL hardware-names as listed an nage 3-10. For examnies 


SPECIAL-NAMES 
continued 


The mnemonic named device can be directly referred to in the 


ASSIGN clause. 


The SPECIAL-NAMES paragraph statement ends with a period as a 


delimiter. Periods between clauses are not allowed. 
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FILE - CONTROL 


INPUT - OUTPUT SECTION. 
eee 
The INPUT-OUTPUT section contains information concerning files to 


be used by the object program. 


FILE-CONTROL 
The function of this paragraph is to name each file, to identify 
the file medium, and to specify a particular hardware assignment. 


The paragraph also specifies alternative input-output areas. 
The construct of this Paragraph has two options which are: 


Option 1: 


FILE-CONTROL. 


SELECT [ OPTIONAL] file-name-1 ASSIGN TO hardware-name-1 


(a eee ereies (THRU Pit eae ee \ | 
| data-name-m { THROUGH data-name-n 


FILE | 
tt WORK 
BY AREA { EROCHeeon \ FOR MULTIPLE REEL 
NW PROCESSOR ere 
5 r 
NO TRANSLATION | { NO BACKUP ee | 
{ TRANSLATION NON-STANDARD | \ BACKUP ao | 
NO AREA 
| SAVE RESERVE cay eee \ | ALTERNATE a] 
| FILE-LIMIT IS ) fliteral-1 THRU f END cee St 
| | RILE-LIMITS ARE f \data-name-1 THROUGH Sone oot 
SS a data-name-2 


FILE - CONTROL 
continued 


RANDOM 


| ACCESS MODE IS | SEQUENTIAL 


\ | [ACTUAL KEY IS data-name-3] 


[PROCESSING MODE IS SEQUENTIAL] 


KEY IS 


| symmotze {He ae 


\ data-name-4 [data-name-5] | babs ules 


Option 2: 


| FILE-CONTROL. 


SELECT sort-file-name ASSIGN TO SORT DISK. 


Files used in a program must be the subject of only one SELECT 
statement. If it is to be OPENed INPUT-OUTPUT or I-0, it must be 
present in the MCP disk directory. 


The word OPTIONAL must be used in the SELECT statement whenever 


an input file can be omitted during certain operational circum- 


stances. 


The ASSIGN clause must be used in order for the MCP to associate 
the file with a hardware peripheral component. The allowable 


hardware-name entries are: 
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j  FilLE - CONTROL 
| continued 


ATT-8A1 IBM- 1030 SPO (eiese Oe Cracactt: 
B-500 IBM- 1050 TAPE MCP to assign) 

F B- 2500 LISTER TAPE-PE (Phase encoded) 
B-3500 O-L-BANKING TAPE-7 (7 channel only) 
B-9350 PRINTER TAPE-9 (9 channel only) 
B-9352 PT- PUNCH TC-500 

| DCT- 2000 PT-READER TC-700 
DISK (or DISC) PUNCH TOUCH- TONE 

| DISK SHARED READER TT-28 
DISPLAY-UNIT SORTER TWX 


Automatic changing of hardware device at object program run time 
can be accomplished by the systems operator performing an "TL" 
control message reflecting the "changed-to" peripherals channel 


and unit number. 


The BY clause is applicable to files ASSIGNed TO DISK only. It is 
also applicable when the DISK system contains more than one elec- 
tronic unit (EU's). If the BY clause is omitted, files are physi- 
cally assigned to disk as space becomes available (from low to 
high). 


The FILE clause specifies the files to be distributed among the 
electronic units by file number (i.e., order of appearance of the 


FD). 


The AREA option specifies that file-name-1l is to be distributed 
among the electronic units by area (areeies as defined in the FILE 
CONTAINS XX BY XX clause). 


The NN option indicates that file-name-1 is to be assigned to the 


electronic unit specified by integer NN. 


The WORK option specifies to the MCP that the SELECTed disk file 

is to be used as a work file and that the MCP must insert the pro- 
gram's mix-number in the second and third characters of the work 
tiie's ftite-ib, thus creating a unique fite-name at object run time. 
The use of this option allows multiprocessing of the same program 


i without creating duplicate file ID's for commonly used work files. 
3-10 


FILE-CONTROL 


continued 


The PROCESSOR option will specify the ability to have multiple 
systems sharing common disk. The MCP will insert the processor 
number in the fifth character of the file ID. The PROCESSOR option 
is not yet available in the MCP, 


The MULTIPLE REEL option is for documentation only. This feature is 
provided automatically by the MCP. 


The NO TRANSLATION clause is used to cause a bypass of the hardware 
translator of data transfers between hardware-name and internal 


core memory. 


The TRANSLATION NON-STANDARD clause applies to remote devices which 
are capable of transmitting different codes for upper and lower 
case characters. If this clause is specified, all data characters 
transmitted from the device are translated to upper case EBCDIC 


codes before they are moved to the object program's record area. 


The BACKUP option wiil cause printer output files to be placed on a 
printer backup tape or disk file for subsequent printing. The 
BACKUP option will cause punch output files to be placed on punch 


backup disk files for subsequent punching. 


The NO BACKUP option will prevent the file from going to printer 
backup automatically when the MCP's printer backup option is set 
"ON" and a Line Printer is not available. This file may be man- 
ually assigned to printer backup by the operator with an "OU" or 


"OUDK" message. 


Use of the FORM option with printer files, will cause the program 
to halt and a MCP message to be printed declaring the need for 


special forms to be loaded in the Line Printer. 


It is recommended that a STOP literal be executed just prior toa 
STOP RUN if the FORM option is used. This will allow the operator 
sufficient time to remove the special forms before the printer is 
released back to the MCP. Without a temporary halt, there is a 
possibility that another job placed in the mix may start printing 


on that same printer. 
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FILE - CONTROL 
| continued 


nen 


The SAVE option will cause file-name-1 to be CLOSEd WITH LOCK by 
the MCP if file-name-1 is still OPEN at End-of-Job. If the SAVE 
option is omitted, then the standard MCP action will be invoked, 
that is, file-name-1 will be automatically CLOSEd (but not LOCKed) 
if it is still OPEN at object End-of-Job. 


The RESERVE clause allows a variation of the number of input or 
output physical record buffers to be supplied by the compiler. 

Fach ALTERNATE AREA reserved requires additional memory to be uti- 
lized in the compiled object program and will be the size of a 
physical record as defined in the FD statement of the DATA DIVI- 
SION for that specific file. If a SEEK or FILL statement is used 
in a program, then a RESERVE 1 ALTERNATE AREA clause must be speci- 
fied. The RESERVE clause is not applicable to SORTER files. 


No alternate areas are reserved when the NO option is specified 


or if the entire option is omitted. 


The MCP will keep track of passing record data to or from the buf- 
fer and record work area if the doliar sign ($) card specifies 
MCPB, otherwise the compilers will supply automatic object program 
code to accomplish this function, thus resulting ina significant 
increase in object program speed at a cost in users core. The 
programmer uses READ or WRITE with no concern of buffering action 


in either case. 


The FILE-LIMIT clause is invalid if specified for a sort file 
description (SD) entry. The FILE-LIMIT clause for input and output 
files associated with the SORT verb will not be effective when 
executing the SORT unless there is an INPUT and/or OUTPUT PROCE- 
DURE declared. 


The FILE-LIMIT clause specifies that: 


a. For SEQUENTIAL access, logical records are obtained from, 
or placed sequentially in, the disk storage rile by tne 


plicit progression from segment to segment. The AT 


ae 1.2 


FILE - CONTROL 


continued 


END imperative statement of a READ statement is executed 
when the logical end of the last segment of the file is 
reached and an attempt is made to READ another record. 

The INVALID KEY clause of a WRITE statement is executed 
when the end of the last segment is reached and an attempt 
is made to WRITE another record. The END option specifies 
that the compiler is to determine the upper limit of an 


existing file. 


b. For RANDOM access, logical records are obtained from, or 
placed randomly in, the disk storage file within the spec-— 
ified FILE LIMIT. The contents of ACTUAL KEY not within 
the specified limit will cause the execution of the INVALID 
KEY branch in the READ and the WRITE statements. 


In the FILE-LIMIT clause, each pair of operands associated with the 
key word THRU represents a logical segment of a file. The logical 
beginning of a disk storage file is considered to be that address 
represented by the first operand of the FILE-LIMIT clause; the 
logical end is considered to be that address as specified by the 


last operand of the FILE-LIMIT clause. 


In a FILE-LIMIT series, SEQUENTIAL records are accessed in the 


order in which they are specified. For example: 
FILE-LIMITS 1 THRU 5, 10 THRU 12, 3 THRU 7 


This example will result in the sequential access of records 1, 2, 
B30 Wy Sy 10, Ite 185-3). 1. By 6 and 7 in that order. 


For the ACCESS MODE SEQUENTIAL clause, the disk storage records 
are obtained or placed sequentially. That is, the next logical 
record is made available from the file on a READ statement exe- 
cution, or a specific logical record is Placed into the file on 
a WRITE statement execution. The ACCESS MODE SEQUENTIAL clause 
is assumed if ACCESS MODE RANDOM is not specified. 
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FILE - CONTROL 


continued 


If the ACCESS MODE RANDOM ciause is specified, the ACTUAL KEY 


entry must be used. 


Values of the ACTUAL KEY data-name-3 are controlled by the pro- 
grammer, including any execution of the USE FOR KEY CONVERSION 
statement. The value may range from 1 to n, where n equals the 
number of records in the file or as reflected by the FILE-LIMITS 
clause. The ACTUAL KEY signifies the relative position of a 
record within the file and is equated to a data-name at any level 
which is defined with a PICTURE of 9(8) COMPUTATIONAL. ACTUAL KEY 
is not used for ACCESS MODE SEQUENTIAL files. 


The ACTUAL KEY data-name-3 must be declared as PICTURE 9(6) COMPU- 
TATIONAL if referencing data-communications files when the WRITE- 
TRANS-READ or the WRITE-READ-TRANS verbs are used to communicate 


between computers. 
The ACTUAL KEY clause is not applicable to the SORTER. 


The ACTUAL KEY clause is required for the LISTER and data-name-3 
must be declared as a PICTURE 9(4) COMPUTATIONAL. Data-name-3 
must contain the unit and tape designations to control printing 


on the LISTER. 


The PROCESSING MODE IS SEQUENTIAL clause denotes that disk file 
records are to be available for processing by the object program 
in the order in which they are sequentially accessed from segment 


to segment. 


The SYMBOLIC KEY entry is only for documentational purposes. The 
conversion of SYMBOLIC KEY data-names to the ACTUAL KEY data-name 
must be specified either by procedural statements preceding the 
SEEK statements or by means of a USE FOR KEY CONVERSION section in 


the PROCEDURE DIVISION. 


All integers must be of positive values. 
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FILE-CONTROL 


continued 


File-name-1 must be unique in the first six characters if the use 
of an MCP label equation card is anticipated for non-disk storage 


files. 


The sort-file-name in Option 2 is the SD level file-name to be used 
by the SORT verb. 
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I-O-CONTROL. 
The function of this paragraph is to specify memory area, to be 
shared by different files during object program execution and the 


point in time that a rerun procedure is to be established. 


The construct of this paragraph is: 


iI-0-CONTROL. 


[RERUN EVERY integer-1 RECORDS OF file-name-1] ... SAME 


{cor 


SORT }] AREA FOR file-name-2 file-name-3 [file-name-4] ... | 


MULTIPLE FILE TAPE "multi-file-id" CONTAINS file-name-list 


[POSITION integer-2 ...] Pee 


MICR 
APPLY OCR ALTERNATING ee | 
MICR-OCR cs | 
' 
| 


WITH [NO-FORMAT] [NO-ERRORS] 


= 


[END-TRANSIT] ON file-name [...] 3 


The I-O-CONTROL paragraph name may be omitted from the program if 


the paragraph does not contain any of the clause entries. 


The RERUN clause sets up a communication with the MCP to create 
control procedures whereby an operational program encountering a 
malfunction can be restarted at the last RERUN control point instead 
of restarting from the beginning of the program. Integer-1l1 records 


cannot exceed 99999, 
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I-O-CONTROL 


continued 


The SAME AREA clause saves memory space in the object program due to 
the fact it allows more than one file to share the same file area, 
associated ALTERNATE, and disk file header areas. As a result, only 
one of the files sharing the SAME AREA can be OPEN at one time. The 
length of each area will be determined by the file with the largest 
record and/or block size. When the SAME SORT AREA is specified it 
will be considered as being for documentation only due to the unique 
method of implementing the SORT function. All SORT files make use 


of all memory area within a program containing the SORT verb. 


When the RECORD option of the SAME AREA clause is used, only the 
record area is shared and the associated alternate areas for each 
file remain independent. In this case, any number of the files 
sharing the same record area may be OPEN at one time, but only one 


of the records can be processed at a time. 


The use of the RECORD option may decrease the physical size of a 
program as well as increase the speed of the object program. To 
illustrate this point, consider file maintenance. If the SAME 
RECORD AREA is assigned to both the old and new files, a MOVE will 
be eliminated which transfers each record from the input to the out- 
put area. The records do not have to be defined in detail for both 
files. Definition of a record within one file and the simple in- 
clusion of an O01 level entry for the other file will suffice. Be- 
cause these record areas are in fact in the same core location, one 
set of data names is sufficient for all processing requirements 


without requiring qualification. 


The MULTIPLE FILE clause specifies that two or more files are resi- 
dent on one magnetic tape. All files resident on a multi-file tape, 
which are required in a program, must be represented in the source 
program by a SELECT statement and an FD entry for each file. The 
file-name-list entries do not have to be in the sequence in which 
they appear on the tape, nor in the sequence of each FD in which 
they appear in the source program. However, the MCP will go to 


the very next file on tape, check the label and if not the file 
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|-O-CONTROL 


continued 


for processing, the MCP will rewind the tape and commence looking 


for it from the beginning of the tape. 


All file-names in a single MULTIPLE FILE clause are implied as 
utilizing the SAME AREA. The use of SAME AREA would therefore be 
redundant. The "multi-file-id" is the file-name contained in the 
physical tape label of a magnetic tape containing multi-files. 
File-name-list is a series of FD file-names in the program indicated 
as residing on the multi-file-tape. Multi-files, or any file con- 
tained within the file may be OPTIONAL. The POSITION clause is for 


documentation only. 
The APPLY clause is specified for SORTER only. 
If no MICR, OCR, or MICR-OCR option is specified, MICR is assumed. 


No alternating areas are assumed if ALTERNATING is not specified. 
ALTERNATING applies to OCR only. 


Formatting is assumed if NO-FORMAT is not specified (see READ, 


section 9). 

An error branch is assumed if NO-ERRORS is not specified. 

The End-of-Document is assumed if END-TRANSIT is not specified. 
The I-O-CONTROL paragraph can have only a terminating period. 


CODING THE ENVIRONMENT DIVISION. 
An example of ENVIRONMENT coding is provided in figure 3-1. 
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Figure 3-1. Coding the ENVIRONMENT DIVISION 


SECTION 4 
DATA DIVISION ; 


GENERAL. 


The third part of a COBOL source program is the DATA DIVISION 
which describes all data that the object program is to accept 
as input, and to manipulate, create, or produce as output. The 


data to be processed falls into three categories: 


a. Data which is contained in files and enters or leaves 
the internal memory of the computer from a specified 


area or areas. 


b. Data which is developed internally and placed into 
intermediate storage, or into a specific format for 


output reporting purposes. 


Ce Constants which are defined by the programmer. 


DATA DIVISION ORGANIZATION. 
The DATA DIVISION is subdivided into two sections: 


a. The FILE SECTION which defines the contents of data 
files which are to be created or used by an external 
medium. Each file is defined by a file description, 
followed by a record description or a series of file- 


related record descriptions. 


b. The WORKING=STORAGE SECTION describes records, con- 
stants, and non-contiguous data items which are not 
part of an external data field, but are developed 


and processed internally. 


DATA DIVISION STRUCTURE. 


The general structure of the DATA DIVISION is as follows: 


DATA DIVISION. 
[FILE SECTION. | 
[FD file-name-l1... €| 


[Ol record-name-1 «| 

[02 data-name-i . . . | . 
FO ae Siig 

[03 data-name-2 ...]. 
[01 record-name-2 af 


[SD file-name-2 =] 

[ WORKING-STORAGE SECTION, | 
ew: data-name-3 ... | . 
[77 data-name-4+ ... J]. 


NOTE 
The DATA DIVISION cannot exceed 
100,000 COMPUTATIONAL digits or 


50,000 DISPLAY Characters. 
[Ol record-name-3 . 


[02 data-name-5 .. rage 
[02 data-name-6 ...]. 
etc. 

[O01 record-name-4 , ] 


etc. 


RECORD DESCRIPTION STRUCTURE. 


A Record Description consists of a set of data description entries 
which describe the elements within a particular record. Each data 
element consists of a level-number followed by a data-name, followed 
by a series of independent clauses, as required. A Record Descrip- 
tion has a hierarchical structure and therefore the clauses used 
with an entry may vary considerably, depending upon whether or not 


it is followed by subordinate elementary entries. 


LEVEL- NUMBER CONCEPT. - 

The level-number shows the hierarchy of data within a logical 
record. In addition, it is used to identify entries for Condition- 
Names, non-contiguous constants, Working-Storage items, and the 


RENAMES clause. 


Each record of a file begins with the lLevel-number O1 (which may 
also be shown as 1). This number is reserved for the record-name 
only, as the most-inclusive grouping for a record. Less-inclusive 
groupings are given higher numbers, but not necessarily succes- 
sively. The numbers can ranse un ta HG, FBisure N-i iliustrateas 


the use of level within a record. 
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Coding of Level-Number 


Figure 4-1. 


For an item to be elementary, it can not have subordinate levels. 
Therefore, the smallest element of a data description is called 
an elementary item. In figure 4-1, MONTH, DAY, YEAR, MILLING, 
and FINISHING are elementary items. Since ITEM-NO, LOT-NO, 
STANDARD-~COST, ASSEMBLY, INSPECTION, and WARRANTY-CODE do not 


have subsidiary clauses, they also represent elementary items. 


A level that has further subdivisions is called a group item. In 
figure 4-1, ITEM-DATE, PRODUCTION-CODE, and MACHINE-SHOP represent 
items on a group level. <A group is defined as being composed of 
all group and elementary items described under it. A group item 
ends when a level-number of equal or lower numeric value than 

the group item itself is encountered. In figure 4-1, group item 
PRODUCTION-CODE ends with INSPECTION. <A group item can only 
consist of a leveli-number and a data-name followed by a period. 
COBOL defines all group items to be alphanumeric and will be 

byte aligned by the compiler. The FILLER ADDED message will 
appear where such alignment has taken place. Apart from level- 
numbers Ol through 49, three additional level-numbers exist in 
COBOL. These are numbers 66, 77, and 88. They represent level- 
numbers within RENAMES, WORKING-STORAGE, and Condition-Name 


entries respectively. 


each record and data description entry. In value it can range 
from O1 through 49 (i, 2, etc. is also permissible), plus special 
numbers of 66, 77, and 88. It is important to remember that 
multiple level O1 entries of a given File Description of the 


File Section represent implicit redefinition of the same core area. 


QUALIFICATION. 

The data-names of the DATA DIVISION need not be unique as long 

as the parent item of that data-name is unique in itself. Quali- 
fication is accomplished by following the data-name to be quali- 
fied wiih either TN ot OF and the qualifying data-name, record-naiie 


c 
or file-name. In the example below, all item descriptions (except the 


ym by 


data-name PREFIX) are unique. In order to refer to either PREFIX 
item, qualification must be used. Otherwise, if reference is 
made to PREFIX only, the compiler would not know which of the two 
is desired. Therefore, in order to move the contents of PREFIX 
into PREFIX of the other, the PROCEDURE DIVISION must be coded 


with one of the following sentences: 


ae MOVE PREFIX OF ITEM-NO TO PREFIX IN CODE-NO. 

b. MOVE PREFIX OF ITEM-NO TO PREFIX IN MASTER-FILE. 

c. MOVE PREFIX OF TRANSACTION-TAPE TO PREFIX IN CODE-NO. 
MOVE PREFIX OF TRANSACTION-TAPE TO PREFIX IN MASTER-FILE. 


EXAMPLE: 
O1 TRANSACTION-TAPE ..... Ol MASTER-FILE ..... 
03 ITEM-NO ..... 03 CODE-NO ..... 
O05 PREFIX ..... O5 PREFIX ..... 
O05 CODE ..... O05 SUFFIX ..... 
O03 QUANTITY ..... 03 DESCRIPTION ..... 
TABLES. 
Frequently, the need arises to describe data which appears in a 
table or an array. For example, an annual sales total record 
might have to be broken down by months. In order to accomplish 


this, January sales would have to be referred to by a given 
data-name, February sales by another, etc. By using the OCCURS 
clause, the same result can be obtained without the need for 12 
different data-names. Figure 4-2 illustrates how the OCCURS 
clause may be used in order to have the compiler build a table 
of twelve elements, each having a structure like MONTHLY-TOTALS. 
The first element will be known as 1 of the table, the second as 
2, etc. The technique of referring to elements within a table 


or an array is known as subscripting. 


The OCCURS clause may appear at any level except the O01 level 
which is reserved for record-names. For more detailed informa- 


tion, refer to the OCCURS clause. 
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Figure 4-2. Coding of Multi-Dimensioned Table 


The repetition of data elements applies to all subordinate fields. 
OCCURS may be nested to describe tables of more than one dimension 
by applying an OCCURS clause to a subordinate name. The COBOL com- 


piler permits tables of up to three dimensions. 


SUBSCRIPTING. 


When a data-name OCCURS more than once, the particular element 
desired within the array is referred to by using subscripts. The 
subscripts follow the data-name representing the array in a COBOL 
statement. A space may separate the data-name and the subscript 
bounded by parentheses. A subscript may be either a numeric literal 
or a data-name. A data-name being used as a subscript may not be 
subscripted. If the value of a subscript is changed in a series 
(e.g., MOVE A (B) to C (B), B, D (B).) the subscript (for D (B) 


in this case) is not re-evaluated. 


In order to reference the first occurrence of MONTHLY-TOTALS of 
figure 4-2, one may write: ...MONTHLY-TOTALS (data-name), where 
data-name must contain a 1, or MONTHLY-TOTALS (1). 


If data-name INCREMENTER is used to refer to the desired element 

in a table in terms of the sample illustration, MONTHLY-TOTALS 
(INCREMENTER ) would have to be written. In this case, the INCRE- 
MENTER would have to contain that value which represents the desired 
element. If a specific RESALE item within a given month is again 
desired, RESALE (INCREMENTER, CODE-X) would have to be written. 
CODE-X is a data-name that can have a value of 1, 2; or 3, depend- 


ing on which of the levels is required. 


At that point in time when a data-name is used for subscripting 
purposes, its value must be greater than zero but not greater than 


the value shown in the corresponding OCCURS clause*. 


Where qualification and subscripting are to be used simultaneously, 
the qualification has to be shown first, followed by the subscript- 


ing. 


* The generated object code will not check the validity of data-name 
values used for subscripting or indexing and undefined results will 
occur should the program reference a subscripted data-name or an 
index-data-name containing a value of zero, or a value above the 
defined subscript or index range as reflected in the OCCURS clause 
pertaining to that item. 
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FILE DESCRIPTION. 


FILE SECTION. 
This section contains descriptions of the files used by the object 


program. 


FILE DESCRIPTION 
The function of this paragraph is to furnish information to the 
compiler concerning the physical structure, identification, and 


record names pertaining to a given file. 


The construct of this paragraph contains four options: 


Option 1: 


FD file-name COPY "library-name". 


Option 2: 


: des : § STANDARD \ 
FD file-name-1l | RECORDING MODE I5 | NON-STANDARD f | 
i 
| 
FILE CONTAINS integer-1 [ BY integer-2| RECORDS | 
: : RECORDS 
| | Brock CONTAINS [integer-3 TO] integer-4 { CHIRAC TERS \ | | 
r | 
| RECORD CONTAINS [ integer-5 TO| integer-6 CHARACTERS | 
; e ( OMITTED 5 
tape, § RECORD IS \  } STANDARD 
S71 RECORDS ARE f USAST 
(| NON-STANDARD 
VA en ID ae "literal-1" \ 
{ vauur } — IDENTIFICATION data-name-1 
PSAVR-FACTOR TS literal-2] 
| ; __.  ¢RECORDIS 1 .., Te Mage hi ee 1 | 
Qatlar-lalwer < | Ua vamtane= 5 


| RECORDS ARE f 


ap 
_! 


FILE DESCRIPTION 


Option 3: continued 


SD sort-file-name COPY "“library-name". 


Option 4: 


SD sort-file-name 
FILE CONTAINS integer-1 [BY integer-2]| RECORDS 


| RECORD CONTAINS [ integer-3 TO integer-4 CHARACTERS] | 


| BLOCK CONTAINS [integer-5 TO] integer-6 { 


RECORDS 
CHARACTERS 


{ RECORD TIS 


RECORDS ane f data-name-1 [data-name-2] ... | . i 


The level indicator, FD and SD identify the beginning of a File 
Description or a Sort File Description and must precede the file 


statement. Both entries must commence under Area A of the coding 


form. Only one period is allowed in the entry and it must follow 


the last used clause. 


Options 1 and 3 can be used when the Systems library contains the 


library-name entry, otherwise, Option 2 and/or 4 must be used. 


In many cases, the clauses within the File Description, or Sort 
File Description sentence are optional. Each clause is discussed 


in detail. 


NOTE 
Figure 4-3 illustrates the use of the File Des- 
cription sentence followed by data record entries. 
It is further noted that the three O1 levels im- 
plicitly redefine the record area and that the 
DATA RECORDS clause is treated by the compiler 
as being documentation only and does not cause 


an explicit redefinition of the area. 
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Figure 4-3. Coding of FD and DATA RECORDS 
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BLOCK 


BLOCK. 


The function of this clause is to specify the size of a physical 


record (block). 


The construct of this clause is: 


RECORDS l | 
CHARACTERS f 


| BLOCK CONTAINS [integer-1 TO] integer-2 \ 


Integer-1 and integer-2 must be positive integer values. | 


The clause is required if the block contains more than one logical 


record. 


When only integer-2 is used, it will represent logically blocked, 
fixed-length, records if its value is other than 1. When the 


integer-1 TO integer-2 option is used, it will represent the minimum 


+o maximum size of the physical record and indicates the presence of 
blocked variable-length records. Integer-l is for documentation 


purposes only. 


The maximum value of the integer used in this clause is shown in 


table 4-1 and refers to the number of characters in a block. 


The word CHARACTERS is an optional word in the BLOCK clause. When- 
ever the key word RECORDS is not present, the integers represent 


characters and must be modulo 2. i 


For object program efficiency, the use of blocked records is recom- 
mended. The physical size of the block should be as large as pos- 


sible depending on memory availability. 


Blocks of records are READ into the input record buffer area by the 
MCP, When the dollar sign (#) card reflects "MCPB", the MCP will 
deliver each record to the programs record work-area as required by 
every explicit READ command. Omission of the MCPB option will cause 
the compiler to create object code for programmatic unblocking of 
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BLOCK 


continued 


records at a considerable increase in speed. In either case, un- 


blocking of records is of no concern to the programmer. 


Table 4-1 


Maximum Value of Integers 


T/O Medium Maximum Block Size - Characters 
ee 


READER 80 
PUNCH 80 
TAPE Limited only by the amount of 


memory available, 


DISK Limited only by the amount of 
memory available. 


PRINTER One print line. 


PT -READER Limited only by the amount of 
memory available. 


PT -PUNCH Limited only by the amount of 
memory available. 


SORTER 200 


LISTER Ky 


Every explicit WRITE verb causes compiler generated object code to 
deliver a record to a files output record buffer area and to accumu- 
late the number of logical records required to create a specified 
block size before notifying the MCP to write the block. When a file 
is CLOSEd, the records left in the output buffer area will be written 
by the MCP before the file is physically CLOSEd. The coding of 
record area to buffer is automatic and is of no concern to the pro- 
grammer. The blockin 


pLougram can be 
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BLOCK 


continued 


inhibited by placing "MCPB" in the dollar sign ($) card, thus assign- 
ing the task to the MCP (see section 8) however, speed will be 


sacrificed for the resultant core savings. 


The user must specify the actual size of variable-length records 
in the first four bytes of each record. This four-character indi- 


cator is counted in the physical size of each record. 


The BLOCK clause is not applicable to the SORTER, LISTER, PT-PUNCH 
or PT-READER peripherals. 


This clause may be omitted for unblocked files. 
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DATA RECORDS 


DATA RECORDS, 
The function of this clause is to document the names of 


record(s) actually contained within the file being described, 


The construct of this clause is: 


[ DATA \ RECORD ts \ 


RECORDS ARE 


data-name~2 [data-name-3...] | 


This statement is only for documentation purposes. The compiler 
will obtain this information from O01 level record description 


entries, 
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FILE CONTAINS. 
The function of this clause is to indicate the number of logical 
records in a file. This statement is required for disk files, 


and optional for all other files. 


The construct of this clause is: 


FILE CONTAINS integer-1 [BY integer-2] RECORDS F 


The indicated integers must be positive values. 


Integer-1 may not exceed 20 when integer-2 is present. The product 
of integer-1 BY integer-2 cannot exceed 99,999,999, When integer-1 
is used by itself, it cannot exceed 99,999,999, 


An entry of FILE CONTAINS 20 BY 9999 RECORDS will notify the MCP to 


allot 20 separate areas (pages) of disk as each area is program- 


matically required. The size of each page would be 9,999 logical 


records in length. 


The above technique allows the MCP to efficiently assign file pages 
as needed, rather than immediately assigning one huge file area 


during the first operation of the program. 


Programmatic usage of the file can either enhance the paging tech- 
nique or defeat its purpose completely. For example, assume that a 
RANDOM file at some future date will require a maximum size of 

20 x 9999 (199,980) logical records, and that no key conversion 
formula is used due to the key being a six digit number running 
from 1 thru 199,980 which exactly fills the key requirement, as is 
the case in auto license numbers in some states. It could happen 
that the first twenty records could open up an entire disk module 
if they were in increments of 9999, which would negate the paging 
technique completely and thus causes the MCP Disk Directory to 
recognize the file as being of maximum size, even though only twenty 


records were processed, 
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FILE CONTAINS 


continued 


page before forcing the MCP to open another. 


The following B 2500/B 3500 statistics define the maximum disk file 


storage area fora 
each E.U. contains 
modules within the 


from one E.U. onto 


given file as being 20 Electronic Units, where 


one page of the file on five contiguous disk 


control of the E.U. 


another, however, 


A file page cannot continue 


to module within the control of each E.U. 


Model 1A 
Disk Storage 


5 
20 
100, 000 
500,000 
10,000, 000 
50,000, 000 


Modules of disk per E.U. 


E.U.s per system. 
Segment addresses 
Segment addresses 
Bytes per module. 
Bytes per E.U. 


per module. 
per E.U. 


A disk file residing on Model iC Disk Storage systems 


more logical records than the equivalent of 5,000,000 


records, blocked 5 


per physical record, ina 


file pages continue from module 


Model 1C 
Disk Storage 


5 

20 
200, 000 
1,000,000 
20,000,000 
100, 000, 000 


cannot contain 


twenty byte 


single disk file page 


and cannot contain more than twenty disk file pages per B 2500/B 3500 


system, 


EXAMPLE: 


5,000,000 records x 20 bytes per record 
100,000,000 bytes (maximum for an E.U.) 


100,000,000 bytes per E.U. 
1,000,000 segment address per E.U. 


The FILE-LIMITS clause, 


if present, 


INVALID KEY and End-of-File checking. 


FILE-LIMIT. 


e164 


DRAT ADT 
dAalenas/ teak oy 


+ 100 byte segments = 


overrides this clause for 


INVALID KEY (or AT END) must 


ee 


LABEL 


LABEL. 
The function of this clause is to specify the presence or absence 
of file label information as the first and last record of an input 


or output file. 


The construct for this clause is: 


OMITTED 
f RECORD IS \ STANDARD 
USAST 
NON-STANDARD | 


LABEL 


\ RECORDS ARE 


The LABEL clause is not applicable to SORTER or LISTER. If this 
statement is omitted, files will be assumed to contain or to have 


been created with STANDARD labels. 


STANDARD specifies that labels exist for the file or device to which 


the file is assigned. It also specifies that input and output labels 


conform to the MCP standards as implemented. 


STANDARD, when specified for disk files, indicates that the six 
character contents of the VALUE or ID clause will be inserted into 
the disk file header. Should VALUE of ID be omitted, the first six 
characters FD or SD file-name will be inserted into the disk file 


header, 


OMITTED specifies that the labels do not exist for the specific input 
file or device to which the file is ASSIGNed. During object program 
operation, the operator will be queried by the MCP as to where the 

input is located. The operator must reply with mix-index UL channel/ 


unit control message. 


NON-STANDARD indicates, that the files physical magnetic tape label 
is formatted as an EDP installations own standard label which has 
been appropriately defined in the System Specification Deck at "cold 
start" time (see B 2500/B 3500 MCP Reference Manual for specifica- 
tions relating to Installation Labels). 
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LABEL 


continued 


OMITTED specifies that labeis are not to be created for the specific 


The Burroughs Standard B 2500/B 3500 label record serves as both 
the beginning label record and the ending label record and is com- 


prised of the following parts: 


Positions Field Description 
1 Invalid character for card files and 


blank for other files. 


2-8 "LABELbb" 
9 Zero. 

10-15 "Multiple-file-id" or zeros. 

16 Biank. 

17 Zero. 
18-23 "File-identifier", 

oh Blank. 

25-27 Reel number within a magnetic tape file. 
28-32 Date written (creation date YYDDD). 
33-34 Cycle (distinguishing multi-runs of the 


program). 


35-39 Purge-date (YYDDD) at which time the MCP 


assumes a magnetic tape as "scratch", 


ho Sentinel (O = End-of-File and 1 = End-of- 
Reel). 
Hi-45 BLock count (ending label only). 
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LABEL 


continued 


Positions Field Description 
46-52 Record count (ending label only). 
53 Memory dump key (1 = memory dump follows 


beginning label). 


54-58 External magnetic tape library reel number. 
59-80 Reserved. 
81- User's portion. 


The COBOL compiler will obtain the value of "multiple-file-ID" from 7 
the I-O-CONTROL MULTIPLE FILE TAPE clause. 


The COBOL compiler will obtain the value of the "file-identifier" 
from the FD VALUE OF ID IS clause, or if it has been omitted it 


will be taken from the first six characters of the FD-name. 


The initial value of the reel number is preset at 001 and increased 


as required during operation of the object program. 


The value of date written is as maintained on the system for the 


processing day and converted by the MCP to YYDDD. 


The value of cycle is preset to 01. It is desired to run the 
same program more than once during a given days period, the operator 


should be given the parameters of a VALUE control statement. 


The value of sentinel will be set to 1 at the end of every reel 


within a file and to zero at the end of the file. 


The block count value will contain the number ot record blocks on 
the tape and is written on the output reel's ending label. The MCP 
will keep count of all blocks read as input and will verify that 

it has read all blocks by comparing the created total and the block 


count entry of each reel's ending label. 


The record count value will contain the number of logical records 
on a tape and is written on the output reel's ending label. The 
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LABEL 
continued 


MCP will verify the number of records read in the same manner as 


for block count. 


The memory dump key notifies the MCP to format the output into 


memory dump notation for the printer. 


The external magnetic tape library reel number is initially placed 
in the label, by a user program, and is permanently maintained by 
the MCP regardless of the tape status of being a scratch or current 
data tape. This area of the tape label may be aitered by a DECLARA- 


TIVE in a user program. 


The STANDARD label may contain data designed by the programmer to 
accommodate miscellaneous information pertinent to magnetic tape 
files only. This user's portion along with the STANDARD informa- 
tion, or FILLER, must be described within the first O01 record des- 
cription entry of the file. The compiler recognizes only an entry 
of O1 LABEL as containing a label description for a given file which 
precedes an actual record description (see figure 4-4 for an example 


of Level Coding). 
The user's portion of the STANDARD label may be of any length. 


The ANSI Standard B 2500/B 3500 label record serves both the be- 


ginning label record and the ending label record. Its format is as 
follows: 
Positions Field Description 
1-3 HDR. 
4 1 ; 
5-13 blank. The MCP recognizes 


the middle six char- 
acters as the file- 
14-21 "file identifier". ID. Position 1 must 
be a zero and posi- 
tion 8 must be a 
blank. E.G., 
\ OAAAAAA A. 


22-27 "multiple-file-ID". 
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continued 


Positions Field Description 
28 O (zero). 
29-31 Reel number within a magnetic tape file. 
32-35 0001 (file sequence number). 
36-39 Blanks (generation number optional). 
4o-41 Cycle number (generation version 


number optional). 


42-47 bYYDDD (creation date). 
48-53 bYYDDD (purge date). 
54 Blank (accessability). 
55-60 000000 (block count (end label block 
count)). 
61-67 0000000 (record count (end label 


record count)). 


68-72 Physical tape number. 
73 B (optional). 

74-80 blanks. 

81- User's portion. 
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Figure 4-4. Labelufoding 


RECORD 


RECORD. 
The function of this clause is to specify the minimum and maximum 
variable record lengths. This clause is not applicable to disk 


files. 


The construct of this clause is: 


| nEconn CONTAINS [integer-1 TO] integer-2 CHARACTERS | 


Integer-l and integer-2 must be positive integer values. 


If integer-l and integer-2 are indicated, the variable length 


record technique is utilized. 


If only integer-2 is indicated, the compiler will treat the clause 


as documentational only. 


If integer-1l and integer-2 are indicated, they refer to the minimum 
and maximum size of the variable records to be processed. At least 
one record description must reflect the maximum size record length 


as specified in the RECORD CONTAINS clause. 


The user must specify the actual size of variable-length records 
in the first four bytes of each record and the record size must 
contain an even number of characters (MOD 2). The four-character 
variable-size indicator is counted in the physical size of each 


record. 
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RECORDING MODE. 


The function of this clause is to specify the recording mode for 


peripheral devices where a choice can be made. 


The construct for this clause is: 


| RECORDING MODE IS \ 


STANDARD 
NON-STANDARD \ 


The RECORDING MODE clause is not applicable to SORTER. The 
SORTER control will translate the 4-~bit MICR code from the SORTER 
into EBCDIC. 


STANDARD RECORDING MODE is assumed if this clause is absent from 
the FD sentence. The MCP automatically checks the parity of input 
magnetic tapes and will read the tape in the intelligent mode. 

For this reason, this clause is required only for tapes when the 
output is to be NON-STANDARD. RECORDING MODE for the card reader 
is determined at execution time by a Label Card containing ?DATA 


(EBCDIC as STANDARD) or ?DATAB (BCL as NON-STANDARD). 


The MCP will automaticaily assign STANDARD RECORDING MODE on 9- 
channel magnetic tape drives if a SELECT clause indicates TAPE, 
even though the programmer has designated the unit as being 


NON-STANDARD. 


The recording modes for the peripheral devices are provided in 


table 4-2. 


RECORDING MODE 


continued 


Table 4-2 


Recording Modes for Peripheral Devices 


Standard Non-Standard 


TAPE-7 Odd Parity Even Parity 

TAPE-9 Odd Parity - 

DISK Memory Image - 

READER Documentational Only Documentational Only 


PUNCH EBCDIC BCL 
PT-READER Binary 
PT- PUNCH Binary 
PRINTER 
SORTER 
LISTER 
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VALUE-OF-ID. 
The function of this clause is to define the identification value 
assigned, or to be assigned, to a file of records and to declare the 


length of time that a file is to be saved. 


The construct of this clause is: 


VA aa ID "literal-1" \ 
VALUE LDENTIFICATION data-name-1 


[SAVE-FACTOR IS literal-2] 


This clause may be used when label records are present in the file 
being described. If this clause is not present, the VALUE OF ID 
will be taken from the first six characters of the FD name which 
must be uniquely constructed so that the MCP will be able to recog- 


nize the files. For example: 


Would create a VALUE of ID 
FD OUTPUT-TO-DISK1 \ as OUTPUT for both files 
FD OUTPUT-TO-DISK2 and will cause DUP FILE 
action by the MCP. 


To make them unique: 


Would create a VALUE of ID 
FD DISK10UT as DISK10 and one of DISK20, 
FD DISK20UT | thus causing no trouble during 
object program execution, 


Literal-1 cannot exceed six characters in length. Data-name-1 may 
be described as greater than six characters in length, however only 
the most significant six characters will be used for the “file-iden- 
tifier". The literal or value of data-name-l up to six characters 
is the actual value to be contained in the "file-identifier" portion 


of the standard magnetic tape label record or disk file header. 


When data-name-1 1S usea tne data-name must ve defined in the 
WORKING-STORAGE section of the program and must be described as 


alphabetic or alphanumeric. 
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continued 


The VALUE OF ID declared for OUTPUT, or O-I, disk files will cause 
literal-1 or the value of data-name-1l up to six characters to be 
inserted into the disk file header. Inversely, literal-1 or the 
value of data-name-1l up to six characters will be checked against 
the MCP Disk File Directory to obtain the files physical location 
on disk when files are declared as being INPUT or INPUT-OUTPUT 
disk files. 


This clause must be used if communication with specific data com- 
munication remote device is required. Literal-1 cannot exceed six 
characters/digits/special characters (or a mix of each) in length. 


The first character must be alphabetic. 


The UNIT card in the MCP System Specification Deck specifies the 
adapter-ID to be assigned to a remote device, which will be compared 
with the contents of literal-1 or data-name-1 at object program 


execution time. 
SAVE-FACTOR is not applicable to a data communication remote device. 


SAVE-FACTOR is used only for output magnetic tape files. Literal-2 
represents the number of days the file is to be saved before it can 
be manually purged and used for other purposes by the system. Lit- 
eral-2 is limited to an unsigned positive integer not to exceed 


three digits in length with values from 001 to 999. 


SAVE-FACTOR declared for a disk file is only for documentational 
purposes due to the fact that files residing on disk should only be 
purged by mutual consent within an EDP organization and can only be 


performed as a physical action by the systems operator. 


WORK tapes are automatically assigned a SAVE FACTOR of one day to 
preclude expiration action when the system is being operated during 


the period just prior to midnight and thereafter. 
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RECORD DESCRIPTION. 
This portion cf a COBOL source program follows the file description 
entries and serves to completely identify each data element within 


a record in a given file. 


The construct of these entries contain four options which are: 


Option 1: 


O1 data-name-1 COPY "library-name". 


Option 2: 


O1 FILLER 
(ae ei-Galined 4 Sa at \ [MOD] [REDEFINES data-name-2] 
PC 
PIC Is (allowable PICTURE characters) 
PICTURE 4 


( BZ al ee rae ) 


L 
| { Rta wi zR0 S| | \ Occurs J 


ry 


a 


integer-2 TO integer-3 TIMES 


[DEPENDING ON data-name-3] | 


| { SSSeaRES 


DESCENDING \ KEY IS data-name-4 ,data-name-5] ... ate 


INDEXED BY index-name-1 [index-name-2]} os 


| 
| 
| 
| 
{ integer-1 TIMES \ 
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continued 


DISPLAY 
CMP 

ae Js 
COMPUTATIONAL SS PIED RIGHT 
COMPUTATIONAL~1 JUSTIFIED 


COMPUTATIONAL- 3 


INDEX 


[USAGE Is] 


VA THRU 
{ ace \ TS titear a l{ TaRORea \ literal-2 | 


: THRU _ 
literal-3 | | { ee an \ literal-4 | ere 
a LEFT 
SING RIGHT s 
SYNCHRONIZED ——— 


Option 3: 


THRU 


66 data~name-1 RENAMES data-name-2 rence 


\ anta-neme-3 | 


Option 4: 


es is VA ; 
88 condition-name ee \ IS literal-1l 


[literal-2...] | { aE ic \ literal-n... | ; 
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continued 


The optional clauses shown may occur in any order, except if RE- 


DEFINES is used it must foiiow data-naime-i1. 
The record description must be terminated by a period. 
Level-numbers in Option 2 may be any number from 1-49. 


The clauses PICTURE, BLANK WHEN ZERO, JUSTIFIED, and SYNCHRONIZED 


must occur on elementary item level only. 


Option 1 can be used when the COBOL library contains the record 
description entry. Otherwise, one of the other options will have 


to be used. 


In many cases, the ciauses within the record description sentence 


are optional. Each clause is discussed in detail. 


In Option 4, there is no practical limit to the number of literals 


in the condition-name series. 


The record description for a SORTER file must be declared as 200 
characters. Record positions 1-100 are for OCR and positions 
101-200 are for MICR. If the record description is more than 200 
characters, a syntax error will result. If the record description 
is less than 200 characters, the compiler will provide FILLER ADDED 
at the end of the description to create a record area 200 charac- 


ters in length. 


The record description for a LISTER file must be declared as 44 


characters. 


The MOD clause following the record-name will cause the beginning 


address of that record to start on the next modulus 1000, 
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BLANK WHEN ZERO. 


The function of this clause is to supplement the specification 


of a PICTURE. 


The construct of this clause is: 


BZ 
BLANK WHEN ZERO 


BLANK WHEN ZERO may be abbreviated BZ. 


This clause overrides the zero suppress float sign functions 

in a PICTURE. If the value of a field is all zeros, the BZ 
clause will cause the field to be edited with spaces. However, 
it does not override the check protect function (zero suppression 


with asterisks) in a PICTURE. 


The BZ clause can only be used in conjunction with an item on 


an elementary level. 


BLANK WHEN ZERO may be associated only with PICTUREs describing 


numeric or numeric edited fields of 99 characters or less. 
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CONDITION-NAME. 
Condition-name is a special name which the user may assign to a 
given code within a data element. This value may then be refer- 


red to by the specified condition-names. 


The construct of this clause is: 


re VA 5 
88 condition-name { VALUE \ IS literal-1 


THRU 
THROUGH j 


[literal-2...] Ei 


literalen... | 


Since the testing of data is a common data processing practice, 
the use of conditional variables and condition-names supplies a 
short-hand method which enables the writer to assign meaningful 
names (condition-names) to particular code values that may appear 


in a data-field (conditional variable). 


When defining condition-names, the following rules must be 


observed: 


a. Each condition-name requires a separate entry with 


the level-number 88. 


b. if reference to a conditional variabie requires 
subscripting, then references to its condition-names 


also require subscripting. 


EXAMPLES: 


02 CONDITION-VARIABLE PC A, OCCURS 10 TIMES. 
88 GIRL VALUE IS "G". 
88 BOY VALUE IS "B". 
88 MAN VALUE IS "M". 
88 WOMAN VALUE IS "WwW". 


Y= "G" THEN GO TO SEE- 


IF-SHES-PURDY. 
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IF GIRL (SUB) THEN GO TO SEE-IF-SHES~PURDY. 


Both of the above examples will generate object 


code to accomplish the same result. 


A conditional variable may be used as a qualifier 


for any of its condition-names. 


Condition-names can only appear in conditional 


statements. 


Condition-names cannot be associated with index-data- 


names. 


Figure 4-5 provides an example of the coding of 


condition-name. 
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Figure 4-5. Coding of Condition-Name 
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DATA-NAME. 

The purpose of this mandatory clause is to specify the name of each 
data element to be used in a program. If a data element requires a A 
definite label, a data-name is assigned. Otherwise, the word FILLER 


can be used in its place. 


The construct of this clause is: 


{ FILLER \ 


data-name-1 


The word FILLER can be used to name a contiguous description area i 


that does not require programmatic reference. 


This entry must immediately follow a level-number. FILLER is only | 
applicable to elementary levels. 


A simple FILLER entry can, with fore-thought, cause the creation of 
a more efficient object code. For example, a record or data 
description comprised of an even number of characters may be more 
efficiently MOVEd than one which is comprised of an odd number of 


characters. 


A data-name need not be unique if it can be made unique through 


qualification by using data-names on higher levels than itself. 


It is not permissible to relationally compare an index-data-name 


against data-name-1l. 
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JUSTIFIED. 
The function of this clause is to specify a non-standard MOVE 
of alphabetic or alphanumeric data within a receiving data field. 


The construct of this clause is: 


The JUSTIFIED clause can be specified only on an elementary item 
level where the receiving field is described as being alphabetic 


or alphanumeric. JUSTIFIED can be abbreviated as JS or JUST. 


This clause cannot be specified for a receiving field described 


as being numeric or numeric edited. 


When the receiving field is described with the JUSTIFIED clause 
and the sending field is larger than the receiving field, the 


left-most characters are truncated. 


EXAMPLE: 
SENDING RECEIVING 
PC x(7) A123CDE PC x(5) 23CDE 


When the receiving field is described with the JUSTIFIED clause 
and the sending field is smaller than the receiving field, the 


data will be positioned right with space fill to the left. 


EXAMPLE: 
SENDING RECEIVING 
Pc x(5) A123C PC X(7)AQA123C 


JUSTIFIED cannot be associated with an index-data-name. 
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LEVEL-NUMBER. 


The function of this clause is to show the hierarchy of data within 
a logical record. Its further function is to identify entries for 
condition-names, non-contiguous constants, working-storage items, 


and for re-grouping. 


The construct of this clause is: 


level-number 


{ FILLER \ 


data-name-1 


A level-number is the first required element of each record and 


data-name description entry. 
Level-numbers may be as follows: 
a. O1 to 49 - record description and WORKING-STORAGE entries. 


b. 66 - RENAMES clause used as a record description or 


WORKING-STORAGE entry. 


c. 77 - applicable to WORKING-STORAGE only as non- 
contiguous items and must precede all other 


level numbers. 


dad. 88 - condition names clause used as a record descrip- 


tion or WORKING-STORAGE entry. 


Level-numbers O1 through 49 are used for record or WORKING-STORAGE 
descriptions. Level number 01 is reserved for the first entry within 
a record description. Level-number 66 is reserved for RENAMES en- 
tries, Level-number 77 is used for miscellaneous elementary items in 
the WORKING=-STORAGE SECTION when these items are unrelated to any 
record. They are cailed non-contiguous items since it makes no dif- 
ference as to the order in which they actually appear. Level-number 
88 is used to define the entries relating to condition=names in 


record descriptions or WORKING-STORAGE entries. 
4-37 


LEVEL-NUMBER 


continued 


oS 


< 


CONCEPT on page 4-2. 
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OCCURS. 


The function of this clause is to define a sequence of data-items 


which possess identical formats, and to define a subscripted item 
or indices. 


The construct of this clause is: 


oc integer-1 TIMES \ 
OCCURS integer-2 TO integer-3 TIMES 
[DEPENDING ON data-name-5] | 


ASCENDING 
4 eeeenmn \ KEY IS data-name-4 [data-name-5]... | eae 


| INDEXED BY index-name-1 [index-name~2] ... | 


This clause cannot be used in a record description entry whose 
level-number is O01, and can only be used with fixed-size items. 
Any item described with this clause must be subscripted or indexed 
whenever referenced in a statement other than SEARCH, and ail sub- 
divisions of the item must also be subscripted or indexed. Up to 


three levels of subscripting are acceptable. OCCURS can be abbrev- 
iated OC. 


If only integer-1l appears, it refers to the exact number of occur- 
rences of the data. Integer-1 must not be zero. Integer-2 TO 
integer-3 indicates a variable number of occurrences of this item. F 


When integer-2 TO integer-3 is used, the following rules must be 
observed: 


a. <Integer-3 must be greater than integer-2 and both must be i 
positive integers. 


b. The item must be the last area of a record. No part of 


a record may follow an item of variable occurrences. 
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c. Only the first dimension of a table can be defined with 
this clase. “The fotlowine definition 2s mot permitted: 


02 RATE-TABLE OCCURS 10 TIMES ... 
03 WHOLE-TABLE ... 
03 AGE OCCURS 4 TO 8 TIMES 


d. The user must employ his own tests to determine how many 
occurrences of the item are actually present in the record 
at any time. The DEPENDING ON option is for documenta- 


tional purposes only. 


Integer-2 TO integer-3 indicates variable-length records and the 

user must specify the actual size of variable-length records in the 
first four bytes of each record and the record size must contain an 
even number of characters (MOD2). The four-character variable size 


indicator is counted in the physical size of each record. 


The following example illustrates a use of the OCCURS clause to 
provide nested descriptions. A reference to ITEM- 4 requires the 


use of three levels of subscripting; e.g., ITEM-4 (2, 5, 4). A 
} 


In the example below there are 50 ITEM-4's. 
EXAMPLE: 


02 ITEM OCCURS 2 TIMES ... 
03 ITEM-1... 
03 ITEM-2 OCCURS 5 TIMES ... 
O4% ITEM-3 ... 
O4 ITEM-4 OCCURS 5 TIMES ... 
O05 ITEM-5 ... 
O5 ITEM-6 ... 
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The following example shows another use of the OCCURS clause. 

Assume that the user wishes to define a record consisting of five 
"amount" items, followed by five "tax" items. Instead of describing 
the record as containing 10 individual data items, it could be de- 


scribed in the following manner: 
EXAMPLE: 


1 TABLE ... 
2 AMOUNT OCCURS 5 TIMES ... 
2 TAX OCCURS 5 TIMES ... 


The above example would result in memory allocated for five AMOUNT 
fields and five TAX fields. Any reference to these fields is made 
by addressing the field by name (AMOUNT or TAX) followed by a sub- 


script denoting the particular occurrence desired. 


The ASCENDING/DESCENDING KEY option is for documentation only. 


The operands in the INDEXED BY option are index-names or indices. 
The operands of an INDEXED BY option must appear in association 
with an OCCURS clause and are usable only when referencing that 


level of the table. When using three-level indexing, each level 


must have an INDEXED BY option and in a given indexing operation, 


only one operand from each option may be used. 


Other than their use as an index into an array, an index-name may 
be referred to only in a SET, SEARCH, PERFORM, or in a relation con- 
dition. All index-names must be unique. Index-names have an 


assumed construction of PC 9(5) COMPUTATIONAL. 


Using an index-name associated with one (row of a) table for index- 
ing into another (row of a) table will not cause a syntax error, 

but will, in most cases, cause incorrect object time results since 
it is. the index-name that contains the information pertinent to the 


element sizes. 
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| When using an index-name series (es264 INDEXED BY A, B, Cc): 


a. The indexes should be used only when referencing the 


associated row. 


b. All "assumed" reference are to the first index-name in a 
series. Others in the series are affected only during an 


explicit reference. 


Indexing into a table follows much the same logic as subscripting. 
There is a limit of three indexes per operand (e.g., A (INDEX-1, 
INDEX-2, INDEX-3). The use of a relative index allows modification 


of the index-name without actually changing the value of the index- 


name. 
EXAMPLE: 
A (INDEX-1 +3, INDEX-2 -4, INDEX-3) 
Relative indexing is indicated by a + or a - integer following an 


index-name and causes the affected index to be incremented or decre- 


mented by that number of elements within the table. 


A data-name whose USAGE is defined to be INDEX is an index-data- 


Condition-names, PICTURE, VALUE, SYNCHRONIZED or JUSTIFIED cannot 


be associated with an index-data-name. 


The B 2500/B 3500 COBOL Compilers will assign the construction of a 
PC 9(5) COMPUTATIONAL area for each index-data-name specified. 


It is not permissible to relationally compare an index-data-name 


against a literal or a regular data-name. 
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PICTURE. 
The function of this clause is to describe the size, class, general 


characteristics, and editing requirements of an elementary item. 


The construct of this clause is: 


Is (character string) 


The word PICTURE may be abbreviated as PC or PIC. Character string 
denotes letters of the alphabet, special characters, and digits 
which are used in conjunction with one another to describe a data- il 


name. See USAGE for a description of characters and digits. 


The maximum number of characters and symbols allowed in the char- 


acter string used to describe a data-name or FILLER; is 30. A 


character string consists of a certain allowable combination of 
characters defined as PICTURE descriptors, plus insert characters 
encompassing the entire character set employed by the systems line 


printer that have no PICTURE descriptor value or action. 


This clause must appear for every elementary item level entry and 


cannot be used at group levels. 
PICTURE cannot be associated with an index-data-name. i 


A PICTURE of A(5) indicates that the item is a five character (byte) 
alphabetic field. The integer within parentheses indicates how 
many times A occurs in order to constitute the desired PICTURE. 

The PICTURE A(5) can also be represented by AAAAA, The value of 


the integer within parentheses must always be greater than zero. 


Record descriptions do not necessarily have to conform to the 
physical characteristics of an ASSIGNed hardware-name. The flow 
of input-output data will terminate at the end of the prescribed 


PICTURE size. For example: 
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READER (can read 80 columns) description can be PICTUREd 
from 1 through 80. 


PUNCH (can punch 80 columns) description can be PICTUREd 
from 1 through 80. 


PRINTER (120/132 character lines) description can be PICTUREd 


from 1 through maximum. 


SPO (one character at a time) description can be PICTUREd 


Per 
from 1 to any Limit. 


There are five categories of data that can be described with a 


PICTURE clause. These are alphabetic, numeric, alphanumeric, 


alphanumeric-edited, and numeric-edited. 


The 


symbols used to define the category of an elementary item and 


their functions are explained as follows: 


44d 


a. The letter A in a character string represents a position 
which can only contain a letter of the alphabet ora 


space. 


b. The letter B in a character string represents a position 


into which the space character is to be inserted. 


c. The letter J in a character string indicates that the op- 
erational data sign is appearing as an over-punch in the 
jeast-significant digit position if USAGE IS DISPLAY is 
associated with the item. However, if USAGE has been in- 
dicated as COMPUTATIONAL, J takes on the same function as 
an S. A J is not counted in the length of a DISPLAY item. 
Only one operational sign may appear in any one PICTURE 
and, if specified, the J must appear as the left-most 
character of the PICTURE. Data elements requiring a J 
PICTURE descriptor may not be described by a VALUE clause 
with a signed literal. PICTURE J should be used only in 
those cases where PICTURE S is not applicable, 
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NOTE 
If J appears within a PICTURE 
descriptor, it no longer per- 
forms as an operational sign 
but serves to reinitiate zero 


suppression, 


The letter K in a character string indicates the presence 
of an 8-bit (byte) sign appearing in the first character 
position of a PICTURE descriptor when USAGE is implicitly 
or explicitly DISPLAY and is counted in the length of the 
PICTURE. If USAGE IS COMPUTATIONAL, the letter K becomes 
the same as an S. Data elements requiring a K PICTURE 
descriptor may not be described by a VALUE clause with a 
signed literal. 


The letter P in a character string indicates an assumed 
decimal scaling position and is used for specifying the 
location of an assumed decimal point when the point is not 
within the number that appears in the data item. The scal- 
ing position character P is not counted in the length of the 
allowable number of characters within a PICTURE description. 
Scaling position characters are counted in determining the 
maximum number of digit positions (99) in numeric edited 
items or numeric items which appear as operands in arith- 
metic statements. The character P can appear only to the 
left or right as a continuous string of P's within a 
PICTURE description. Since it implies an assumed decimal 
point (to the left of the P's if P's are left-most PICTURE 
characters and to the right of P's if P's are right-most 
PICTURE characters), the assumed decimal point symbol V is 
redundant as either the left-most of right-most character 


within such a PICTURE description. 


The letter S in a character string is used to indicate the 
presence of the standard operational sign in the form of an 


overpunch in the most-significant digit position of an item 


has 


PICTURE 


continued 


if USAGE IS DISPLAY and is not counted in the length of the 
PICTURE. If USAGE IS CMP, it wiii denote an operational 
sign digit in front of the most-significant digit position 
and is counted in the length of the PICTURE. The S must be 
written as the first character of the character string of a 
PICTURE. A signed item may not be more than 99 characters/ 
digits in length. Wherever possible, PICTURE S$ should be 


used rather than J or K. 


g. The letter V in a character string indicates the location 
of an assumed decimal point and may only appear once in a 
character string. It does not represent a character posi-~ 
tion and therefore is not counted in the length of the 
item. When the assumed decimal point character V is the 
right-most character of the PICTURE character string, it 


is redundant. The maximum number of decimal places is 99. 


h. The letter X in a character string indicates an alphanumeric 
position which can contain any allowable character in the 


computer's character set. 


i. Each letter Z in a character string represents a zero 
suppress editing action and may only be used to cause the 
left-most leading numeric character positions to be re- 
placed by a space at object time when the contents of that 
character position is zero. Each Z is counted as part of 
the PICTURE length. Zero suppression is terminated with 
the first non-zero numeric character in the data. Inser- 
tion characters are also replaced by spaces while suppres- 
sion is in effect. Z can also appear to the right of J 
when the J symbol is used to reinitiate zero suppression. 
For additional information on zero suppression; see the 
BLANK WHEN ZERO clause. FILLER entries cannot be defined 


by the letter Z usage. 
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The number 9 in a character string represents numeric data. 
Tf USAGE IS explicitly or implicitly DISPLAY, the data will 
be operated on as 8-bit (byte) characters. If USAGE IS 
CMP, it will be operated on as 4-bit digits. Each 9 is 
counted in the length of the PICTURE. 


The number O (zero) in a character string represents a 
position into which zero is to be inserted when that item 
is a receiving field and it is counted in the length of the 


PICTURE. 


The special character comma in a character string represents 
a position into which a comma will have to be inserted, It 
is counted as part of the PICTURE length. (Also see 
DECIMAL-POINT IS COMMA in section 3 of this document.) If 
zero suppression is indicated, a blank character will 
replace each applicable comma until meaningful data is 


encountered in the data stream, 


The special character period in a character string is an 
editing symbol which represents the decimal point for data 
alignment purposes. In addition, it represents a character 
position into which a period will be inserted. It is 
counted as part of the PICTURE length. If more than one 
period is indicated in the PICTURE, the left-most period 
determines the scale of the PICTURE. The PICTURE must not 
terminate with a period except when it is used to indicate 
the end of the item clause. For a given program, the 
function of the period and comma are exchanged if the 
DECIMAL-POINT TITS COMMA clause appears in the SPECTAL-NAMES 
paragraph. If exchanged, the rules that apply to the use 
of periods apply to commas and vice versa. (Also see 


DECIMAL-POINT IS COMMA in section 3 of this document. ) 


The symbols +, -, CR; and DB are used as editing sign con- 
trol symbols. When used, they represent the character posi- 


tion into which the editing sign control symbol will be 
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placed. The symbols are mutually exclusive in any one 
character string and each character used in the PICTURE 


is counted in the length. 


°1) ‘Fixed insertion characters. A single + or - can be 
used at the extreme left or right of a PICTURE. The 
CR and DB can be used only at the extreme right end of 
a PICTURE. The CR and DB symbols represent a two char- 
acter position and are counted in the length of the 
item. Only one currency symbol and only one of the 
editing sign control symbols can be used in a given 
PICTURE. The currency symbol ($) must be the left- 
most character position except that it can be preceded 
by either a + or - symbol. Fixed insertion editing 
results in the insertion character occupying the same 
character position in the edited item as it occupied 
in the PICTURE character string. Editing sign control 
symbols (sometimes referred to as report signs) pro- 
duce the results shown in Table 4-3, depending upon 


the value that the item contains. 


Table 4-3 
Editing Sign Control Symbol Results 


Result 


Data Item Data Item | 
Positive Negative 


Editing Symbol In 
Picture Character String 


2) Floating Insertion Characters. When used as floating 
replacement and suppression characters, + and - are 


Seis eG. SEEN oak UO Sees ea ed’ ~ ee es 4+ 
WEROUDEYEL JUNE LIL CALL EMC Le 
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represent each leading numeric character into which the 
sign (+ or ~) is to be floated. At least two symbols 
must be shown to use the subject symbols as floating 
characters. The floating symbol may not appear to the 
right of the decimal point unless all replacement posi- 
tions consist of that symbol. In this case, the field 
will consist of all spaces when the value is zero. The 
currency symbol and editing symbols + and - are the 
insertion characters, and they are mutually exclusive 
as floating insertion characters in a PICTURE character 


string. 


3) In a PICTURE character string, there are only two ways 
of representing floating insertion editing. One way 
is to represent, by the insertion characters, any or all 
of the leading numeric character positions to the left 
of the decimal point. The other way is to represent all 


of the numeric character positions in the PICTURE char- 


acter string by the insertion characters. If the first 
method is employed, a single insertion character will 
be placed into the character position immediately pre- 
ceding the first non-zero digit in the data represented 
by the insertion symbol string to the decimal point, 
whichever is encountered first. If the second method 

is used, the result depends upon the value of the data. 
If the value is zero, the entire data item will contain 
spaces. If the value is not zero, the result is the 
same as when the insertion character is only to the left 
of the decimal point. The PICTURE must contain at least 
one more floating insertion character than the maximum 


number of significant digits in the item to be edited. 


The special character asterisk in a character string repre- 
sents a leading numeric character position into which an 
asterisk will be placed when the content of that position is 


zero and asterisk replacement has not disabled. Asterisk 
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replacement is disabled when the first non-zero character 
is encountered, or when the decimal point (implicit or 
explicit) is reached. When the PICTURE character string 
specifies only asterisks (*), and the value of the item 
is zero, the entire output item will consist of asterisks 
and the decimal point, if present. BLANK WHEN ZERO does 


not override the insertion of asterisks. 


p. The special character dollar sign in a character string 
represents a character position into which a currency symbol 
is to be inserted. The currency symbol in a character 
string is represented automatically by a dollar sign ($). 

If the CURRENCY clause of the SPECTAL-NAMES paragraph is 
indicated, the dollar sign is replaced by the character 
specified as a replacement CURRENCY SIGN and is counted in 
the length of the item. 


1) Fixed insertion character. The currency sign may 


appear anywhere in the PICTURE. 


2) Floating insertion character. At least two currency 
signs must appear as the left-most characters in the 
PICTURE. The currency sign is written to represent 
each leading numeric character position into which the 
currency sign may be floated. A single sign is placed 
in the least-significant suppressed position shown by 
the currency symbol in the PICTURE. The output item 
must contain at least one more currency sign character 
position than the maximum number of significant digits 


in the source item. 


The length of an elementary item, where the length means the number 
of character positions occupied by the elementary item in standard 
data format, is determined by the number of allowable symbols which 


represent character positions. 
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An integer which is enclosed in parentheses describing the character 
string of a PICTURE and following the symbols A, °, X,; 9, P, Z; *, 
B, O05; +; -; or the currency sign indicates the number of consecutive 
occurrences of the symbol. Note that the K, S;,; CR, and DB symbols 


may appear only once in a given PICTURE character string. 


To define an item as alphabetic, its PICTURE character string can 


only contain the symbols A and B. 


To define an item as numeric, its character string of the PICTURE 
can only contain the symbols 0, 9, J; K,; P, S, and V. Its contents, 
when represented in standard data format, must be a combination of 
the numerals 0, 1 through 9. The item may include an operational 


sign symbol. 


To define an item as alphanumeric, its PICTURE character string 


is restricted to certain combinations of the symbols A, X; and 9. 


The item is treated as if the character string contained all X's. 
The PICTURE character string which contains all Ats or all 9's does 


not define an alphanumeric item. 


define an item as alphanumeric edited, its PICTURE character 


3 
string is restricted to the following combinations of symbols: 


ae The character string must contain at least one B; one X, 


and one O (zero). 


b. Another alternative is that the character string must have 


at least one O (zero) and one A. 


To define an item as numeric edited, its PICTURE character string 

is restricted to certain combinations of the symbols B, J, K; P, 

V; Zs; O, 9, comma, period, *, +, -, CR, DB; and the currency sign. 
The allowable combinations are determined by the order of precedence 
of symbols and the editing rules. The number of positions which may 


be represented in the character string is 99. 
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There are two general methods of performing editing in the PICTURE 
clause, either by insertion or by suppression and replacement. 


There are four types of insertion editing available. 


a. Simple insertion. 
b. Special insertion. 
ec. Fixed insertion. 


d. Floating insertion. 


ae Zero suppression and replacement with spaces. 


b. Zero suppression and replacement with asterisks. 


Floating insertion editing and editing by zero suppression and re- 
placement are mutually exclusive in a PICTURE clause. Only one type 


of replacement may be used with zero suppression in a PICTURE clause. 


Simple insertion editing involves the usage of comma, B, and 0 
(zero) as the insertion characters. The insertion characters are 
counted in the length of the item and represent the position in the 


item into which the character will be inserted. 


Special insertion editing character period (.) is used to represent 
the decimal point for alignment in addition to acting as an inser- 
tion character. The insertion character used for the actual decimal 
point is counted in the length of the item. The use of the assumed 
decimal point, represented by the symbol V and the actual decimal 
point, represented by the insertion character period (.) in the same 
PICTURE character string is disallowed. If the insertion character 
is the last symbol in the character string, it must be immediately 
followed by one of the punctuation characters, semicolon, or period, 
followed by a space. The result of special insertion editing is the 
appearance of the insertion character in the item in the same posi- 
tion as shown in the character string. Any character or digit other 
than those defined with PICTURE meanings can be used as special in- 


sertion characters and will be counted in the size of the PICTURE. 


4-52 


PICTURE 


continued 


EXAMPLE: 


99/99/99 could be a date mask and 999=99=9999 


could represent a social security number mask. 


Zero suppression editing of leading zeros in numeric character 
positions is indicated by the use of the character Z, or the char- 
acter * (asterisk) as suppression symbols in a PICTURE character 
string. These symbols are mutually exclusive in a given PICTURE 
character string. Each suppression symbol is counted in deter- 
mining the length of the item. If Z is used, the replacement char- 
acter will be the space and if the asterisk is used, the replace- 


ment character will be *. 


Zero suppression and replacement is indicated in a PICTURE charac- 
ter string by using a string of one or more of the allowable sym- 
bols to represent leading numeric character positions which are to 
be replaced when the character contains a zero. Any of the simple 
insertion characters embedded in the string of symbols or to the 


immediate right of this string are part of the string. 


In a PICTURE character string, there are two ways of representing 
zero suppression. One way is to represent any or all of the leading 
numeric character positions to the left of the decimal point by 
suppression characters. The other way is to represent all of the 
numeric character positions in the PICTURE character string by 
suppression characters. If the suppression symbols appear only to 
the left of the decimal point, any leading zero in the data which 
corresponds to a symbol in the string is replaced by the replacement 
character. Suppression terminates at the first non-zero digit in 
the data represented by the suppression symbol string or at the 
decimal point, whichever is encountered first. If all numeric 
positions in the PICTURE character string are represented by 
suppression symbols, and the value of the data is not zero, the 
result is the same as if the suppression characters were only to 

the left of the decimal point. If the value is zero, the entire 


data item will be spaces if the suppression symbol is Z, whereas 
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asterisks will cause the field (except for decimal point) to be 
replaced with asterisks. Even if the BLANK WHEN ZERO clause is used 
in conjunction with asterisks, the replacement of character positions 


containing zeros will be conducted with asterisks. 


The symbols +, -, *, Z, and the currency symbol, when used as float- 
ing replacement characters, are mutually exclusive within a given 
character string. At least two floating replacement characters must 


appear as the left-most characters in the PICTURE. 


Table 4-4 shows the order of precedence when using characters as 
symbols in a character string. For a given function in the left 
column, a small x in its row indicates that the arguments, used as 
column headings, are the only ones that may immediately precede the 
first appearance of the function ina particular string. Arguments 
appearing in braces ({}) indicate that the symbols are mutually ex- 


clusive. The currency symbol is represented by $. 


Table 4-4 
Order of Precedence When Using Characters As Symbols 


psf [ef eo [i] Po] | 
feof ff f {| ___ -—_| | | 


(i) x 


(1) 

eietay tate tt 

el ae ee es 

pee eel eo ee aa 

CS Oa a 2 OE 
2 oe 


|x | =| Eos 
ee ee ee ee i 
Cae a ee ee ee a ee ee 
Ve ean eS te se ee es det a oe 
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The symbols A, B,; V,; X, 0, 9, period, and comma can be preceded by 
any symbols in the PICTURE character string except CR and DB. 


NOTE 
When the + or - appears on the right of 
a character string and the P is also on 


the right, P precedes the sign indicator. 


To simplify the explanation of allowable character pairs in the 
character string of a PICTURE, table 4-5 and 4-6 are provided. These 
tables have been constructed so that they reflect the use of all 
allowable symbols, depending upon whether the item is numeric, alpha- 
betic, or alphanumeric. For example, if the item is numeric and 

the programmer wishes to determine whether the symbol V can follow 

a 9, then table 4-5 should be used. In the numeric item section of 
table 4-5, the letter Y (Yes) can be found at the crossing point of 
horizontal, first symbol, 9 and vertical, second symbol, V. On the 
other hand, the use of J after 9 is indicated with N (No). 
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Table 4-5 


Numeric or Alphabetic Items 


SECOND SYMBOL 


Alphabetic 
Item 


Hi 


c 
\o 
<i 
a 
q 
a 
ie] 
Eat 
> 
to 


m 9/YYNNNY 
t 
Bi e vl YNNNNY 
e 
I a s|YYNNNY 
In 
R 
i J|YYNNNY 
i. 
é K]}YYNNNY 
| > 
| P| YYNNNY 
| 
|s; -—> 
| « tk 4 
i ¥ i | 
| | | 
iM ss | | 
| 
0 hI 
: Bb A Y Y 
| b oe B Y yY 
| 
eer | 
t | 
i 
Cc 
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CR 


DB 


Table 4-6 


Alphanumeric Items 


SECOND SYMBOL 


(BUT NOT FIRST 
SYMBOL IN PC) 


Bowie we WK 
a 


a a 


KK 


a 


a 
a a i  - - 


Mow BB BA we eo OK 


Za « 


A 
RK 


a a a 
Hood 


a 
Z 


Hw ow WwW 
How we Be Z 


KK 


+ 


es: 
2 


Zz 


4 
bet 


a i KK 


ee KH Se 
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continued 


Z2* CR DB BO $ 


fl 
me 


= 
a | 


YY Y Y YN 
YY Y Y YN 
YN N N YY 
YN N N YY 
NY Y Y YN 
YY Y Y YN 
NN N N NN 
NN N N NN 
NY Y Y YN 
NY Y Y YN 
Yoo. YOY OYE 
NY Y Y¥Y YY 
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| PICTURE | 
| continued | 


Table 4-7 demonstrates the editing function of the PICTURE 


clause. 


Table 4-7 


Editing Application of the Picture Clause 


eee 
Picture 


9(5) 12345 $22,229.99 $12, Pgieenon 
v9(5) 12345 $$$,$99.99 $0.12 
v9(5) 12345 $72,229.99 $ 0.12 
9(5) 00000 $$$,$$9.99 $0.00 
9(3)V99 12345 $22,229.99 $ 123.45 
9(5) 00000 $$$, $$6.9$ 
| 9(5) 01234 $$$, $98.98 | $ 1,234.00 
9 5) 00000 $e¥,**9.99 KHKHKHEK HH 
9 5) 00123 Gx, XHK, HK | $***123.00 
| 9(3)Vv99 00012 $72,229.99 | ¢ 0.12 
| 9(3)Vv99 12345 $88,989.99 | $123.45 | 
9(3)V99 00001 $22,222.99 | .O1 
| 9(5 12345 $$$,$$9.99 $12,345.00 | 
9(5 00000 $22,222.22 | 
| 9(3)Vv99 00001 $$$, $$$.$4 $.O1 
S9(5 (+) 12345 ZZZZ9.99+ | 12345.00+ | 
$9(5) (-) 00123 i ==99999.99 i = 123,00 
9(3)V99 | 12345 | 999.00 123,00 
$9(5) i 12345 ZZZZ9.99- 12345.00- 
| $9(5) | +) 12345 | ZZZZ9.99- | 12345.00 
95) 12345 BBBO9.99 45.00 
s9(5)v (-) 12345 -ZZ2Z2Z9.99 -12345.00 
$9(5) | -) 12345 $HSHSS. aar8 $12345.00CR | 
S99V9 2 fs Ce) R230o I Hee reey -12.34 
$9(5 +) 12345 SSSHSS. D0CR $12345.00 
9(3)V99 12345 999.BB 123. 
9(5) 12345 00999.00 00345.00 
Ae 0012003 ZZ99TZ9 12 3 
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REDEFINES. 
The function of this clause is to allow an area of memory to be 
referred to by more than one data-name with different formats and 


sizes. 


The construct of this clause is: 


[level-number data-name-1 REDEFINES data-name-2] 


The level-numbers of data-name-1 and data-name-2 must be identical 


and must not be 66 or 88, 


This clause must not be used in O01 level entries of the FILE SECTION 
as an implicit REDEFINES is assumed when multiple 01 level entries 
within a file description are present. The size of the record(s) 


causing implicit redefinition do not have to be equal to that of the 


record being redefined. The various sizes of implicitly redefined 
record descriptions create no restriction as to which description is 


to be coded first, second, third, etc., in the source program. 


Redefinition starts at data-name-2 and ends when a level-number less 
than or equal to that of data-name-2 is encountered in the source 


program, 


When the level-number of data-name-2 is other than O1 (REDEFINES can 
not be used on the O1 level in the FILE SECTION), it must specify a : 
storage area of the same size as specified by data-name-1. It is 
important to observe that the REDEFINES clause specifies the redef- 
inition of a storage area, not simply of the data items occupying 


that area. 


The entries giving the new description of the storage area must 


immediately follow the entries describing the area being redefined. 
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REDEFINES 


continued 


The entries giving the new description of the storage area must not 


contain VALUE clauses, except in condition-name entries. 


Data-name-2 need not be qualified. 


RENAMES 


RENAMES. 
The function of this clause is to permit alternative and possi- 


bly overlapping, grouping of elementary items. 


The construct of this clause is: 


THRU 


data-name~1l RENAMES data-name-2 Ieee \ data-name-3 |- 


All RENAMES entries associated with a given logical record must 


immediately follow its last data description entry. 


Data-name-2 and data-name-%3 must be names in the associated 
logical record and cannot be the same data-name or have the 
same logical address. A 66 level entry cannot rename another 


66 level entry nor can it rename a 77, 88, or O1 level entry. 


Data-name-1 cannot be used as a qualifier, and can only be 


qualified by the names of the level O01 or FD entries. Neither 
data-name-2 nor data-name-3 may have an OCCURS clause in its 
data description entry nor be subordinate to an item that has 


an OCCURS clause in its data description entry. 


Data-name-2 must precede data-name-3 in the Record Description, 


and data-name-3 cannot be subordinate to data-name~-2. 
One or more RENAMES entries can be written for a logical record. 


When data-name-3 is specified, data-name-1 is a group item which 
includes all elementary items starting with data-name-2 (if data- 
name-2 is an elementary item) or the first elementary item in 
data-name-2 (if data-name-2 is a group item), and concluding 
with data-name-3 (if data-name-3 is an elementary item) or the 
last elementary item in data-name-3 (if data-name-3 is a group 


item). 
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When data-name-3 is not specified, data-name-2 can be either a 
group or an elementary item. When dataename-2 is a group item, 
data-name-l is treated as a group item, and when data-name~2 

is an elementary item, data-name-1l is treated as an elementary 


item. 


When data-name-3 is specified, none of the elementary items 
within the range, including data-name-2 and data-name-3, can 


be of variable length. 
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SYNCHRONIZED. 
The function of this clause is to specify positioning of an 


elementary item within a computer word or words. 


The construct of this clause is: 


SY LEFT 
ounce RIGHT 
SYNCHRONIZED — a 


SYNCHRONIZED may be abbreviated as SY or SYNC and may only appear 


with a description of an elementary item. 


This clause specifies that the compiler, in creating the inter- 
nal format of this item, must place the item in the minimum 


number of computer words which can contain the item. If the 


size of the item, explicitly or implicitly, is not an exact 
multiple of the number of characters in a computer word, the 
character positions between the item and the computer word 
boundary cannot be assigned to another item. Such unused 


character positions are included in: 


a. The length of any group to which the elementary item 
belongs. 


b. The computer storage area allocation when the elemen- 


tary item appears as the object of a REDEFINES clause. 


SYNCHRONIZED LEFT specifies that the elementary item is to be 
positioned so that it will begin at the left boundary of a 


computer word. 


SYNCHRONIZED RIGHT specifies that the elementary item be posi- 
tioned so that it will terminate at the right boundary of a 


computer word. 
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continued 
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Whenever the SYNCHRONIZED item is referenced in the source pro- 
gram, the original length of item, as shown in the PICTURE 
clause, is used in determining any action which depends on the 


length, such as justification, truncation, or overflow. 


If the data description of an item contains the SYNCHRONIZED 
clause and an operational sign, the sign of the item appears 
in the normal operational sign position regardless of whether 


the item is SYNCHRONIZED RIGHT or SYNCHRONIZED LEFT. 


When the SYNCHRONIZED clause is specified for an item within 
the scope of an OCCURS clause, each occurrence of the item 
is SYNCHRONIZED. 


A word in the B 2500/B 3500 contains two 8-bit characters (2 
bytes). 


SYNCHRONIZED cannot be associated with an index-data-name. 
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USAGE. 
The function of this clause is to specify the format of a data item 


in compiler storage. 


The construct of this clause is: 


DISPLAY 

CMP 

CMP-1 

COMP 
COMPUTATIONAL 
COMPUTATIONAL-1 


COMPUTATIONAL- 3 
INDEX 


[USAGE IS] 


The USAGE clause can be written at any level. If USAGE is written 


on group level, it applies to each elementary item in that group. 


COMPUTATIONAL-1, CMP-1, or COMPUTATIONAL-~3 are acceptable substi- 
tutes for, and are equivalent to, COMPUTATIONAL, COMP, or CMP 


entries. 


A warning message of POSSIBLE CMP GROUP USAGE ERROR will appear 
whenever the receiving field is a group CMP item. It indicates 
that the resultant contents during object program execution of the 


group CMP item may not contain expected results. 


NOTE 
Group moves are performed whenever the 
sending or receiving field is a group 
item and both will be treated as alpha- 
numeric (byte) data, regardless of USAGE. 


The USAGE of an elementary item cannot contradict the USAGE of a 
group to which the item belongs. 
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continued 


USAGE is a declaration for the EBCDIC internal representation of 


the system and is defined as follows: 


a. When USAGE IS DISPLAY, the data item consists of 8-bit 
(byte) characters; two such characters comprise a B 2500/ 


B 3500 computer word. 


b. When USAGE IS COMPUTATIONAL, the data item consists of 
4-bit coded digits. 


c. When USAGE IS INDEX, a PICTURE may not be specified. 


The PICTURE of a COMPUTATIONAL item can contain only 9's, the opera- 
tional sign character S, J, or K, the decimal point character V, one 


or more P's and the insertion character O (zero). 


COMPUTATIONAL items may be declared for 9-channel magnetic tape 
files (TAPE-9), disk file (DISK), Supervisory Printer, paper tape 
files (PT-READER or PT-PUNCH), or for WORKING-STORAGE SECTION items. 


A DISPLAY item is automatically converted to its 4-bit equivalent 
whenever the receiving area is defined as COMPUTATIONAL except when 
the receiving area is a group item. A CMP item is automatically 
converted to its 8-bit equivalent whenever the receiving area is 


declared DISPLAY except when the sending CMP item is a group item. 


Arithmetic operations utilizing COMPUTATIONAL and DISPLAY operands 
in the same statement are of no concern te the user. The B 2500/ 
B 3500 efficiently uses these operands with no prior conversion of 


data format by the programmer. 
In the absence of a USAGE clause, USAGE IS DISPLAY will be assumed. 


For the most efficient use of hardware storage and internal record 
storage areas, records should be devised so as to avoid inter-mixing 
of odd-length COMPUTATIONAL items with DISPLAY items. This rule is 
due to the compiler automatically placing the machine addresses of 


DISPLAY areas to modulo two. For example: 


BAD RECORD 


03 data-name-1 PC 9 
03 data-name-2 PC 9 

FILLER ADDED (see 
03 data-name-3 PC 9 
03 data-name-4 PC 9 
03 data-name-n... 


FILLER PC 9 USAGE IS CMP was automatically 


inserted to move the location counter to MOD 26 


GOOD RECORD LAYOUT (R 


03 data-name-1 PC 9 
03 data-name-3 PC 9 
03 data-name-2 PC 9 
03 data-name-4 PC 9 
03 data-name-n ... 


The compiler adjusts the r 
items to byte boundaries. 


COMPUTATIONAL data fields 


EXAMPLE 1 

O1 A. 
02 B PC 9 CMP. 
02 C PC 9 CMP. 
02 D PC 9 CMP. 
02 E PC 9 CMP. 
02 F. « 


USAGE 


continued 


LAYOUT 


USAGE IS DISPLAY 

\ (takes up one word) 
USAGE IS CMP. 
note below) . 
USAGE IS DISPLAY. 


USAGE IS CMP \ (depends on next entry) 


NOTE 


earrangement of the above record) 


USAGE IS DISPLAY. 
USAGE IS DISPLAY. 
USAGE IS CMP. 

USAGE IS CMP. j 


\ (takes up one word ) 
(takes up one- 
half word) 


(depends on next entry) 


esultant object code addresses of group 


The following examples reflect four 


in two different data element arrangements: 


EXAMPLE 2 
Ol Al. (group) 
02 Bl PC 9 CMP. (elem. ) 
02 Cl. (group) 
03 Dl PC 9 CMP. (elem. ) 
03 D2 PC 9 CMP. (elem. ) 
02 El PC 9 CMP. (elem. ) 
02 Fil. (group) 
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Record A will occupy two contiguous bytes of memory, while record Al 


will consist of three contiguous bytes. The Al description will 


cause the following object code format to be produced: 


1 B 2500/B 3500 word 


a ee 


1 byte 1 byte l byte 


PREVIOUS PREVIOUS 


Di D2 


STATE STATE 


Al 


Data-names whose USAGE IS INDEX are referred to as index-data-names. 
They are never referred to as an "index", cannot be used for indexing 
and are not associated with a table. They should be considered only 
as temporary storage areas for index-names. They may be referenced 


only in a SET or SEARCH statement or in a relation condition. 


Condition-names, PICTURES, VALUE, SYNCHRONIZED or JUSTIFIED cannot 


be associated with an index-data-name. 


Every index-data-name will be automatically assigned a PC 9(5) 


COMPUTATIONAL area by the B 2500/B 3500 COBOL Compilers. 
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VALUE. 
The function of this clause is to declare an initial value to a 
WORKING-STORAGE items, or the value associated with a condition- 


name, 


The construct of this clause is: 


VA THRU : ; 
| { Hive } IS literal-1 [ { are literal-2 ] [ 1itera1-3 | 


THRU : 
a penouees \ literal-4 | | 


Abbreviation VA can be used in lieu of VALUE. 


Literals may consist of Figurative Constants; e.g., ZEROS, QUOTES, a 


etc. 


Literals may be replaced by the reserved word DATE-COMPILED. If 
DATE-COMPILED is used in the VALUE clause, the date that the program 
was compiled will be placed in the data-name in the JULIAN form of 
YYDDD. 


In the FILE SECTION, the VALUE clause is allowed only in condition- 
name (88 level) entries. VALUE entries in other data descriptions IP 


in the FILE SECTION are considered as being documentation only. 


In the WORKING-STORAGE SECTION, the entire VALUE clause may be used 
with condition-name entries. All levels other than 88 are restricted 


to the use of literal-1 only. 


The VALUE clause must not be stated in a Record Description entry 
with an OCCURS clause, or in an entry which is subordinate to an 
entry containing an OCCURS clause. This rule does not apply to 


condition-name entries. 
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es in the data 
h 


s 
description of an item or in a data description within the hierarchy 


of the item. The following rules apply: 


a. If the category of an item is numeric, all literals 
in the VALUE clause must be numeric literals; e.g.; 


VA 1, 3 THRU 9, 12, 16 THRU 20, 25 THRU 50, 51, 56. 


b. If the category of the item is alphabetic or alpha- 
numeric, all iliterais in the VALUE clause must be 
specifically stated non-numeric literals; e.g.; 


VA Is tA YM 3 mB ’ "won 9 wet : my i 3 yt 3 non ’ tpi ’ "qr 3 "gt ‘ 


c. All literals in a VALUE clause of an item must have a 
value which requires no editing to place that value 


in the item as indicated by the PICTURE clause. 


d. The function of any editing clauses or editing charac- 
ters in a PICTURE clause is ignored in determining the 
initial appearance of the item described. However, 
editing characters are included in determining the 


length of the item. 


In a condition-name entry, the VALUE clause is required and is the 
only clause permitted in the entry. The characteristics of a 


condition-name are implicitly those of its conditional variable. 


If this clause is used in an entry at the group level, the literal 
must be a figurative constant or a non-numeric literal (byte char- 
acters). The group area is initialized without consideration for 
the USAGE of the individual elementary items. Subordinate levels 


within the group cannot contain VALUE clauses. 


The VALUE clause must not be specified for a group containing items 


requiring separate handling due to the SYNCHRONIZED or USAGE clause. 
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The VALUE clause must not be stated in a Record Description entry 
which contains a REDEFINES clause, or in an entry which is sub- 
ordinate to an entry containing a REDEFINES clause. This rule 


does not apply to condition-name entries. 


A literal must not contain. a sign when the VALUE clause is used 


with a data-name whose PICTURE specifies a J or K sign position. 


In a VALUE clause, there is no practical limit to the number of 
literals in a series. VALUE cannot be associated with an index- 


data-name. 
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WORKING-STORAGE SECTION. 

The WORKING-STORAGE SECTION is optional and is that part of the 
DATA DIVISION set aside for intermediate processing of data. The 
difference between WORKING-STORAGE and the FILE SECTION is that 
the former deals with data that is not associated with an input 


or output file. 


ORGANIZATION. 

Whereas the FILE SECTION is composed of file description (FD or SD) 
entries and their associated record description entries, the WORKING- 
STORAGE SECTION is composed only of record description entries and 
non-contiguous items. The WORKING-STORAGE SECTION begins with a 
section-~header and a period, followed by item description entries 
for non-contiguous WORKING-STORAGE items, and then by record des- 
cription entries for WORKING-STORAGE records, in that order. The 
format for WORKING-STORAGE SECTION is as follows: 


[ WORKING-STORAGE SECTION ] 
[79 data-name-1 | 
[88 condition-name-1] 


[77 data-name-n | 
[01 data-name-2 | 


[66 data-name-m RENAMES data-name-3 | 
[01 data-name-4 | 
[02 data-name-5 | 
[03 data-name-n | 


[88 condition-name-2 | 


NON-CONTIGUOUS WORKING-STORAGE. 
Items in WORKING-STORAGE which bear no relationship to one another 
need not be grouped into records provided Utiiey do not need tu ve 


further subdivided. Instead; they are classified and defined as 
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non-contiguous items. Each of these items is defined in a sepa- 
rate record description entry which begins with the special level- 
number 77. The following record description clauses are required 


in each entry: 


a. Level-number. 
b. Data-name. 


c. PICTURE clause or equivalent. 


The OCCURS clause is not meaningful on a 77 level item and will 
cause an error at compilation time if used. Other record des- 
cription clauses are optional and can be used to complete the 


description of the item if necessary. 


All level 77 items must appear before any O1 levels in WORKING- 
STORAGE. 


WORKING-STORAGE RECORDS. 

Data elements in WORKING-STORAGE which bear a definite relationship 
to one another must be grouped into records according to the rules 
for the formation of record descriptions. All clauses which are 
used in normal input or output record descriptions can be used 

in a WORKING-STORAGE record description, including REDEFINES, 
OCCURS, and COPY. Each WORKING-STORAGE record-name (01 level) 

must be unique since it cannot be qualified by a file-name. Sub- 
ordinate data-names need not be unique if they can be made unique 


by qualification. 


INITIAL VALUES. 

The initial value of any item in the WORKING-STORAGE SECTION is 
specified by using the VALUE clause of the record description. If 
VALUE is not specified, the initial values are set to 4-bit zeros 


(COMPUTATIONAL). 


CONDITION-NAMES. 
Any WORKING-STORAGE item may be a conditional variable with which 


one or more condition-names are associated. Entries defining 


4-73 


WORKING-STORAGE 


continued 


condition-names must immediately follow the conditional variable 
entry. Both the conditional variable entry and the associated 


condition-name entries may contain VALUE ciauses. 


TRANSLATE TABLES. 

If translate tables are desired in WORKING-STORAGE for referencing 
by the TRN operator in ENTER SYMBOLIC, the starting address must 
be modulo 1000. This can be accomplished by following the record- 


name with the reserved word MOD. 


CODING THE WORKING-STORAGE SECTION. 
Figure 4-6 illustrates the coding of the WORKING-STORAGE SECTION. 


BURROUGHS COBOL CODING FORM 


REQUESTEO BY 


| WORKING-STORAGE 


| continued 


Coding of WORKING-STORAGE SECTION 
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SECTION 5 
PROCEDURE DIVISION 


GENERAL. 

The fourth part of the COBOL source program is the PROCEDURE DIVI- 
SION. This division contains the procedures needed to solve a given 
problem. These procedures are written as sentences which may be 
combined to form Paragraphs, which in turn may be combined to form 


sections. 


RULES OF PROCEDURE FORMATION. 

COBOL procedures are expressed in a manner similar (but not iden- 
tical) to normal English prose. The basic unit of procedure for- 
mation is a sentence, or a group of successive sentences. A pro- 
cedure is a Paragraph, or a group of successive Paragraphs, ora 
section, or a group of successive sections within the PROCEDURE 
DIVISION. The first entry following the PROCEDURE DIVISION header 
must be a section-name or a Pparagraph-name. If the first entry is 
a section-name, then it must be followed by a paragraph-name. Sen- 
tence structure is not governed by the rules of English grammar, 
but rather, dictated by the rules and formats outlined in this man- 


ual. 


STATEMENTS. 


There are three types of statements: imperative statements, con- 


ditional statements, and compiler-directing statements. 


IMPERATIVE STATEMENTS 


An imperative statement is any statement that is neither a condi- 
tional statement nor a compiler-~directing statement. An imperative 
statement may consist of a Sequence of imperative statements, each 
possibly separated from the next by a separator. A single impera- 
tive statement is made up of a verb followed by its Operand. A se- 
quence of imperative statements may contain either a GO TO statement 
or a STOP RUN statement which, if present, must appear as the last 
imperative statement of the sequence, Some of the imperative verbs 


ares 
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ACCEPT MOVE 


ADD* MULTIPLY* 
ALTER OPEN 
CLOSE PERFORM 
COMPUTE* SEARCH 
DISPLAY SEEK 
DIVIDE* SET 
EXAMINE STOP 

EXIT SUBTRACT* 
GO WAIT 
INTERROGATE WRITE** 


CONDITIONAL STATEMENTS. 
A conditional statement specifies that a truth value of a condi- 
tion is to be determined for subsequent action of the object pro- 


gram. 


COMPILER-DIRECTING STATEMENTS. 
A compiler-directing statement is one that consists of a compiler 


directing verb (COPY, ENTER and NOTE) and its operand(s). 


SENTENCES, 


There are three types of sentences: imperative sentences, condi- 
tional sentences, and compiler-directing sentences. A sentence 
consists of a sequence of one or more statements, the last of which 


is terminated by a period. 


IMPERATIVE SENTENCES, 

An imperative sentence is an imperative statement terminated by a 
period. An imperative sentence can contain either a GO TO state- 
ment or a STOP RUN statement which, if present, must be the last 


statement in the sentence. Examples would be: 


ADD MONTHLY-SALES TO TOTAL-SALES, THEN GO TO PRINT-TOTAL. 


* Without the SIZE ERROR option. 
¥X¥ Without the INVALID KEY option. 


DISPLAY "PGM-END" THEN STOP RUN. 


CONDITIONAL SENTENCES. 
A conditional sentence is a conditional statement which may op- 
tionally contain an imperative statement and must always be term- 


inated by a period. 
EXAMPLES: 


IF HEIGHT IS GREATER THAN STX-FEET-NINE GO TO 
TALL-MEN, ELSE ADD 1 TO PUNIES, GO GET-ANOTHER- 
RECORD. 


IF SALES IS EQUAL TO BOSSES-QUOTA THEN MOVE SALESMAN 
TO HONOR-ROLL OTHERWISE MOVE HIS-NAME TO PINK-SLIP- 
LIST, GO TO NEXT-SENTENCE. 


If the phrase NEXT-SENTENCE immediately precedes a period, then 


the phrase may be eliminated and a GO TO NEXT-SENTENCE will be 
implied. 


COMPILER-DIRECTING SENTENCES. 


A compilter-directing sentence is a singie compiler-directing state- 


ment terminated by a period. 
EXAMPLE: 
COPY "SCANER". 


SENTENCE PUNCTUATION. 
VERB FORMATS. 


Punctuation rules for individual verbs are as shown in the verb 


formats and in section 1 of this manual. 


SENTENCE FORMATS. 


The following rules apply to the punctuation of sentences: 
a. A sentence is terminated by a period. 


b. A separator is a word or character used for the purpose 
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of enhancing readability. The use of a separator 


(other than a space) is optional. 


c. The allowable separators are: spaces, the semicolon Ca). 


the comma (3 and the reserved word THEN. 
d. Separators may be used in the following places: 


1) Between statements. 


2) In a conditional statement. 


a) Between the condition and statement-1l. 


b) Between statement-1 and ELSE. 


e. A separator (other than a space) should be followed 


by at least one space but is not required. 


EXECUTION OF IMPERATIVE SENTENCES. 
An imperative sentence is executed in its entirety and control is 


passed to the next applicable procedural sentence. 


EXECUTION OF CONDITIONAL SENTENCES. 
In the conditional sentence: 


OTHERWISE 


IF condition statement-1 { ELSE 


\ statement-2 

the condition is an expression which is TRUE or FALSE. If the 
condition is TRUE, then statement-1 is executed and control is 
immediately transferred to the next sentence. If the condition is 
FALSE, statement-2 is executed and control passes to the next 


sentence. 


If statement-1 is conditional, then the conditional statement must 
be the last (or only) statement comprising statement-1l. For 


example, the conditional sentence would then have the form: 
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IF condition-l imperative~statement-1 IF condition-2 


statement-4 


statement-3 { SraeRVISE \ 


OTHERWISE 
ELSE 


ELSE 
statement-2. 


If condition-1 is TRUE, imperative-statement-1 is executed. If 
condition-2 is TRUE, statement-3 is executed and control is trans- 
ferred to the next sentence. If condition-2 is FALSE, statement-4 
is executed and control is transferred to the next sentence. If 
condition-1 is FALSE, statement-2 is executed and control is trans- 
ferred to the next sentence. Statement-3 can in turn be either 
imperative or conditional and, if conditional, can in turn contain 
conditional statements to an arbitrary depth. In an identical 
manner, statement-4 can either be imperative or conditional, as 

can statement-2. The execution of the phrase NEXT SENTENCE causes 
a transfer of control to the next sentence written in order, except 
when it appears in the last sentence of a procedure being PERFORMed, 


in which case control is passed to the return control. 


EXECUTION OF COMPILER-DIRECTING SENTENCES. 

The compiler-directing sentences direct activities during compi- 
lation time. On the other hand, procedural sentences denote action 
to be taken by the object program. Compiler-directing sentences 
may result in the inclusion of routines into the object program. 
They do not directly result in either the transfer or passing of 
control. The routines themselves, which the compiler-directing 
sentences may have included in the object program, are subject to 
the same rules for transfer or passing of control as if those 


routines had been created from procedural sentences only. 


CONTROL RELATIONSHIP BETWEEN PROCEDURES. 

In COBOL, imperative and conditional sentences describe the pro- 
cedure that is to be accomplished. The sentences are written 
successively, according to the rules of the coding form (section 
roe to establish the sequence in which the object program is to 


execute the procedure. In the PROCEDURE DIVISION, names are used 


Do 


so that one procedure can reference another by naming the proce- 
dure to be referenced. In this way, the sequence in which the 
object program is to be executed may be varied simply by trans- 


ferring to a named procedure. 


In executing procedures, control is transferred only to the begin- 
ning of a paragraph or section. Control is passed to a sentence 
within a paragraph only from the sentence written immediately pre- 
ceding it. If a procedure is named, control can be passed to it 
from any sentence which contains a GO TO or PERFORM, followed by 


the name of the procedure to which control is to be transferred. 


PARAGRAPHS. 

So that the source programmer may group several sentences to con- 
vey one idea (procedure), paragraphs have been included in COBOL. 
In writing procedures in accordance with the rules of the PROCE- 
DURE DIVISION and the requirements of the coding form (Section 7), 
the source programmer begins a paragraph with a name. The name 
consists of a word followed by a period, and the name precedes the 
paragraph it names. A paragraph is terminated by the next para- 
graph-name. The smallest grouping of the PROCEDURE DIVISION which 
is named is a paragraph. The last paragraph in the PROCEDURE DIVI- 
STON is terminated by the optional special paragraph-name END-OF-JOR 


which can be the last card in the source program. 


Programs may contain identical paragraph-names provided they are 
resident in different sections. If such paragraph-names are not 
qualified when used, the current section is assumed. They may be 


used in GO, PERFORM and ALTER statements if desired. 


SECTIONS. 


A section consists of one or more successive paragraphs and must 
be named when designated. The section-name is followed by the 
word SECTION, a priority number which is optional, and a period. 
If the section is a DECLARATIVE section, then the DECLARATIVE 
sentence {i.e., USE or COPY) foliows the section neader and begins 


on the same line. Under all other circumstances, a sentence may 
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not begin on the same line as a section-name. The section-name 
applies to all paragraphs following it until another section-name 
is found. It is not required that a program be broken into sec- 
tions, but this technqiue is exceptionally useful in trimming down 
the physical size of object programs by stating a priority number 


to declare overlayable program storage (see SEGMENT CLASSIFICATION). 


Since paragraph-names and section-names both have the same desig- 
nated position on the reference format (i.e., position A), section- 
names, when specified, are written on one line followed by a para- 
graph name on a subsequent line. When PERFORM is used in a non-. 
DECLARATIVE procedural section to call another section, the same 
rules apply as when PERFORM is used in a DECLARATIVE section. 


DECLARATIVES. 


Declaratives are procedures which operate under the control of the 
input-output system. Declaratives consist of compiler-directing 
sentences and their associated procedures. Declaratives, if used, 
must be grouped together at the beginning of the PROCEDURE DIVI- 
SION. The group of declaratives must be preceded by the key word 
DECLARATIVES, and must be followed by the words END DECLARATIVES. 
Each DECLARATIVE consists of a single section and must conform to 
the rules for procedure formation. There are two statements that 
are called declarative statements in the COBOL Compiler. These 


are the USE and the COPY statements. 


USE STATEMENT, 

A USE declarative is used to supplement the standard procedures 
provided by the input-output system. The USE sentence, immediately 
following the section-name, identifies the condition calling for 
the execution of the USE procedures. Only the PERFORM statements 
may reference all or part of a USE section. The USE sentence 
itself is never executed. Within a USE procedure, there must be 

no reference to the main body of the PROCEDURE DIVISION. The 


format for the USE declarative is as follows: 


section-name SECTION. US ite ar bela beets ford a tev 


Pparagraph-name. First procedure-statement ... 
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Complete rules for writing the formats for USE are stated under 
the USE verb. 


COPY STATEMENT AS A DECLARATIVE. 
A COPY declarative is used to incorporate a DECLARATIVE library 
routine in the source program. That is, a routine which is a USE 


declarative. The format of the COPY declarative is: 
section-name SECTION. COPY "library-name". 


Complete rules for writing the format for COPY are stated under 
the COPY verb. 


ARITHMETIC EXPRESSIONS. 


An arithmetic expression is an algebraic expression which is 


defined as: 


a. An identifier of a numeric elementary item. 


b. A numeric literal. 


c. Such identifiers and literals separated by arithmetic 


operators. 


dad. Two arithmetic expressions separated by an arithmetic 


operator. 
e. An arithmetic expression enclosed in parentheses. 


Any arithmetic expression may be preceded by a unary + or -. The 
permissible combinations of identifiers, literals, and arithmetic 
operators are given in table 5-1. Those identifiers and literals 
appearing in an arithmetic expression must represent either numeric 
elementary items or numeric literals on which arithmetic operation 


may be performed. 


Table 5-1 


Combination of Symbols in Arithmetic Expressions 


second Symbol 


Variable %/*® +- 


Variable 


%/** 


NOTE 
In the above table, the letter P represents 
a permissable pair of symbols. The character 
- represents an invalid character pair. Vari- 


able represents an identifier or literal. 


ARITHMETIC OPERATORS. 
There are five arithmetic operators that may be used in arithmetic 
expressions. They are represented by specific characters which 


must be preceded by a space and followed by a space. 


Character Meaning 
+ addition 


- subtraction 


* multiplication 
a division 
RK exponentiation 


FORMATION AND EVALUATION RULES. 

Parentheses may be used in arithmetic expressions to specify the 
order in which elements are to be used. Expressions within paren- 
theses are evaluated first and, within a nest of parentheses, 
evaluation proceeds from the least inclusive set to the most in- 
clusive set. When parentheses are not used, or parenthesized 
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expressions are at the same level of inclusiveness, the following 


hierarchical order of operations is implied: 


Unary + or - 
xX 
* and / 


+ and - 


The symbols + and -, if used without parenthesizing, may only follow 
one of the arithmetic operators **, *, Tes or appear as the first 
symbol in a formula. Parentheses have a precedence higher than any 
of the operators and are used to eliminate ambiguities in logic 
where consecutive operations of the same hierarchical level appear, 
or to modify the normal hierarchical sequence of execution in for- 
mulas where it is necessary to have some deviation from the normal 
precedence. When the sequence of execution is not specified by 
parentheses, the order of execution of consecutive operations of 
the same hierarchical level is from left to right. Thus, ex- 
pressions ordinarily considered to be ambiguous, e.g., A ra B * C, 

A 7 B / C, and A*¥*B¥*C are permitted in COBOL. They are inter- 
preted as if they were written (A / B) * Cc, (A / B) / CGC, and (A**B) 


**C, respectively. Without parenthesizing, the following example: 
At+t+B/C+D** E* F-G 

would be interpreted as: 
A + (B/C) + ((D ** E) * FP) -G 

with the sequence of operations working from the inner-most paren- 


theses toward the outside, i.e., first exponentiation, then mul- 


tiplication and division, and finally addition and subtraction. 


The way in which operators, variables, and parentheses may be com- 


bined in an arithmetic expression is summarized in table 5-1. 


An arithmetic expression may only begin with the symbols (Cs +, = 


Ar a wavrishla and maw ants and with a YO 48 nA ots - l zm reat 
SE a ee ee (Oak ON a ee a ae ee . aac Muse 


be a one-to-one correspondence between left and right parenthesis 
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of an arithmetic expression such that each left parenthesis is to 


the left of its corresponding right parenthesis. 


CONDITIONS. 

A condition causes the object program to select between alternate 
paths of control depending upon the truth value of a test. Con- 
ditions are used in IF and PERFORM statements. A condition is one 


of the following: 


a. Relation condition.. 


b. Class condition. 


c. Condition-name condition. 

d. Sign condition. 

e. NOT condition. 

f. Condition { cm condition. 


The construction NOT condition, where condition is one of the first 
four types‘of conditions listed above, is not permitted if the con- 


dition itself contains NOT. 


LOGICAL OPERATORS. 
Conditions may be combined by logical operators. The logical oper- 
ators must be preceded by a space and followed by a space. The 


meaning of the logical operators is as follows: 


Logical Operator Meaning 
OR Logical Inclusive OR 
AND Logical Conjunction 
NOT Logical Negation 


Table 5-2 indicates the relationships between the logical operators 
and conditions A and B. Table 5-3 indicates the way in which con- 


ditions and logical operators may be combined. 


RELATION CONDITION. 


A relation condition causes comparison of two operands, each of 
which may be a data-name, a literal, or an arithmetic expression 


(formula). Comparison of two elementary numeric items is permitted 
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regardless of the format as specified in individual USAGE clauses. 
However, for all other comparisons the operands must have the same 
USAGE. Group numeric items are defined to be alphanumeric. It is 
not permissible to compare an index-data-name to a literal or a 


data-name. 


Table 5-2 


Relationship of Conditions, Logical Operators, and Truth Values 


Table 5-3 


Combinations of Conditions and Logical Operators 


pipet | Second Symbol 


Condition 

| OR P é . P P &. of 
AND | P - - Pp Pp = 
NOT Pp - = = Pp a 

| | Pp - - Pp Pp 


NOTE 
The letter P represents a 
permitted pair of symbols. 
The character - represents 


an invalid character pair. 


The general format for a relation condition is as follows: 


data-name-1 data-name-2 
literal-1 relational-operator literal-2 
arith. expression-1 arith. expression-2 


The first operand, data-name-1, literal-1, or arithmetic expression- 
1 is called the subject of the condition. The second operand, data- 
name-~2, literal-2, arithmetic expression-2 is called the object of 


the condition. The object and the subject may not both be literals. 


RELATIONAL OPERATORS. 
The relational operators specify the type of comparison to be made 
in a relation condition. The relational operators must be preceded 


by a space and followed by a space. Relational Operators are: 


a. IS [NOT] GREATER THAN. 
b. IS [NOT] LESS THAN. 

c. IS [NOT] EQUAL TO. 

d. IS [NOT] >. 

e. IS [NOT] <. 

f. IS [NOT] =, 


N 


COMPARISON OF OPERANDS, 

NON-NUMERIC. For non-numeric (byte) operands, a comparison will 
result when determination is made that one operand is less than, 
equal to, or greater than the other with respect to a specified 
internal coding sequence of characters (see appendix C). The size 
of an operand is the total number of characters or digits in the 
operand. Non-numeric operands may be compared only when their 
USAGE is the same, implicitly or explicitly. There are two cases 


to consider: 


a. If the operands are of equal size, characters or digits 
in corresponding character or digit positions of the 


two operands are compared starting from the high-order 


end through the low-order end. If all pairs of charac- 
ters or digits compare equally through the last pair, 
the operands are considered equal when the low-order end 
is reached. The first pair of unequal characters or 
digits to be encountered is compared to determine their 
respective relationship. The operand that contains the 
character or digit that is positioned higher in the in- 
ternal coding sequence is considered to be the greater 


operand. 


b. If the operands are of unequal size, the comparison of 
characters or digits proceeds from high-order to Low- 
order positions until a pair of unequal characters or 
digits is encountered, or until one of the operands has 
no more characters or digits to compare. If the end of 
the shorter operand is reached and the remaining charac-~ 
ters or digits in the longer operand are spaces or zeros, 


the two operands are considered to be equal. 


NUMERIC. For operands that are numeric, a comparison results in 
the determination that one of them is less than, equal to, or 
greater than the other with respect to the algebraic value of the 
operands. The length of the operands, in terms of number of digits, 
is not significant. Zero is ponsideved a unique value regardless 
of the sign. Comparison of these operands is permitted regardless 
of the manner in which their usage is described. Unsigned numeric 


operands are considered positive for purposes of comparisons. 


The signs of signed numeric operands will be compared as to their 


algebraic value of being plus (highest) or minus (lowest). 


EVALUATION RULES. 
The evaluation rules for conditions are analogous to those given 


for arithmetic expressions except that the following hierarchy 


applies: 


a. Arithmetic expressions (formulas). 


b. All relational operators. 
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c. NOT. 
d. AND. 
e. OR. 


SIMPLE CONDITIONS. 


Simple conditions, as distinguished from compound conditions, are 
subdivided into four general families of conditional tests: Re- 
lation Tests, Relative Value Tests, Class Tests, and the Condi- 
tional Variable Tests. A detailed explanation of each of these 


can be found under the IF verb discussion. 


COMPOUND CONDITIONS. 


The most common format of a compound condition is: 


simple-condition-1 | ae \ simple-condition-2 
AND AND simple-condition-n 
OR _ OR 


Simple conditions can be combined with logical operators according 
to specified rules to form compound conditions. The logical op- 
erators AND, OR, and NOT are shown in table 5-2 where A and B re- 
present simple conditions. Thus, if A is TRUE and B is FALSE, then 
the expression A AND B is FALSE, while the expression A OR B is 
TRUE. 


The following are illustrations of compound conditions: 
a. AGE IS LESS THAN MAX-AGE AND AGE IS GREATER THAN 20. 
b. AGE IS GREATER THAN 24 OR MARRIED. 


c. STOCK-ON-HAND IS LESS THAN DEMAND OR STK-SUPPLY IS 
GREATER THAN DEMAND + INVENTORY. 


d. A IS EQUAL TO B, AND C IS NOT EQUAL TO D, OR E IS NOT 
EQUAL TO F, AND G IS POSITIVE, OR H IS LESS THAN I * J. 


e. STK-ACCT IS GREATER THAN 72 AND (STK-NUMBER IS LESS 
THAN 100 OR STK-NUMBER EQUAL TO 76920). 


Note that it is not necessary to use the same logical connective 
throughout. The rules for determining the logical (i.e., truth) 


value of a compound condition are as follows: 


a. If AND's are the only logical connectives used, then the 
compound condition is TRUE if, and only if, each of 


the simple conditions is TRUE. 


b. If OR's are the only logical connectives used, then the 
compound condition is TRUE if, and only if, one or 


more of the simple conditions is TRUE. 


c. If both logical connectives are used, then the conditions 
are grouped first according to AND, proceeding from left 


to right, and then by OR, proceeding from left to right. 


Parentheses may be used to indicate grouping as specified in the 
examples below. Parentheses must always be paired the same as in 
algebra, i.e., the expressions within the parentheses will be 
evaluated first. In the event that nested parenthetical expres- 
sions are employed, the innermost expressions within parentheses 
are handled first. Examples of using parentheses to indicate 


grouping are: 


a. To evaluate Cl and (C2 OR NOT (C3 OR C4)), use the 
first part of rule c above and successively reduce 


this by substituting as follows: 


Let C5 equal "C3 OR C4" resulting in 
Cl AND (C2 OR NOT C5) 


Let C6 equal "C2 OR NOT C5" resulting 
in Cl AND C6 


This can be evaiuated by tabie 5-2. 
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To evaluate Cl OR C2 AND C3, use the second part of 
rule c and reduce this to Cl OR (C2 AND C3), which 


can now be reduced as in example a. 


To evaluate Cl AND C2 OR NOT C3 AND C4, group first 
by AND from left to right, resulting in: 


(C1 AND C2) OR (NOT C3 AND C4) 
which can now be evaluated as in example a. 


To evaluate Cl AND C2 AND C3 OR C4 OR C5 AND C6 AND C7 
OR C8, group from the left by AND to produce: 


((C1 AND C2) AND C3) OR C4 OR ((C5 AND C6) 
AND C7) OR C8 


which can now be evaluated as in example a. 


ABBREVIATED COMPOUND CONDITIONS... 


Any relation condition other than the first that appears ina 


compound conditional statement may be abbreviated as follows: 


The subject, or the subject and relational operator, 

may be omitted. In these cases, the effect of the abbre- 
viated relation condition is the same as if the omitted 
parts had been taken from the nearest preceding complete 
relation condition within the same condition. That is, 


the first relation in a condition must be complete. 


If, in a consecutive sequence of relation conditions 
(separated by logical operators) the subjects are iden- 
tical, the relational operators are identical and the 
logical connectors are identical, the sequence may be 


abbreviated as follows: 


1) Abbreviation 1 - when identical subjects are 
omitted in a consecutive sequence of relation 
conditions. An example of Abbreviation 1 
would be: 
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IF A = BAND = C. 


This is equivalent to IF A = B AND A =C. 


2) Abbreviation 2 - when identical subjects and 
relational operators are omitted in a consecutive 
sequence of relation conditions. An example of 


Abbreviation 2 is: 


IF A = B AND C. 


This is equivalent to IF A = B AND A = CG, 


3) Abbreviation 3 - when identical subjects, relational 
operators, and logical connectors are omitted in a 
consecutive sequence of relational conditions. Only 
the first occurrence of the subject and relation 
are written; all objects but the last are written as 
a series (can but need not be preceded by commas). 

The logical connector is written only once and appears 
immediately preceding the last of the objects. An 


example of Abbreviation 3 would be: 


Ir A = B, C AND D 


This is equivalent to ITF A = B AND A =C AND A =D. 


As indicated in the previous paragraphs, compound con- 
ditions can be abbreviated by having implied subjects, 

or implied subjects and relational operators, providing 
the first simple condition is a full relation. The 
missing term is obtained from the last previous complete 
relation in the sentence. The following examples further 


illustrate the abbreviated compound conditions: 


1) IF A=BORC is equivalent to IF A=BORA=OC. 


2) IF A <BOR=C ORD is equivalent to IF A < B OR 
A =C ORA< D. Note that the missing relational 
symboi for LD is < rather than = since the last 


complete relation is A < B. 


SEGMENTATION. 

COBOL segmentation is a facility that provides a means by which 
communication with the compiler, to specify object program overlay 
requirements, can be accomplished. COBOL segmentation deals only 
with segmentation of procedures. As such, only the PROCEDURE 
DIVISION and the ENVIRONMENT DIVISION are considered in determining 


segmentation requirements for an object program. 


PROGRAM SEGMENTS. 

Although it is not mandatory, the PROCEDURE DIVISION for a source 
program may be written as a consecutive group of sections, each of 
which are operations that are designed to collectively perform a 
particular function. Each section must be classified as belonging 
either to the fixed portion or to one of the independent segments 
of the object program. Segmentation in no way affects the need 


for qualification of procedure-names to ensure uniqueness. 


The object program is composed of two types of segments: A fixed 


segment and overlayable segments. 


a. The fixed segment is the main program segment and is 


never overlaid by any other part of the program. 


b. An overlayable segment is a segment which, although 
logically treated as if it were always in memory, can 
be overlaid, if necessary, by another segment to opti- 
mize memory utilization. However, such a segment, if 
called for by the program, is always made available 
in its "initial" state except for ALTERed switches 


which are always set to their last used state. 


Also, depending on availability of memory, the number of permanent 
segments in the fixed and overlayable portions can be varied by 
changing the SEGMENT-LIMIT clause in the OBJECT-~COMPUTER paragraph. 


SEGMENT CLASSIFICATION. 
Sections which are to be segmented are classified using a system 
of priority numbers and the following criteria: 
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a. Logic requirements - sections with priority numbers 
from OO thru 49 in a program may reside in the fixed 
segment depending on the value specified in SEGMENT-— 
LIMIT. Sections containing a priority number lower 
than that specified in SEGMENT-LIMIT, regardless of 
their physical location in the program, will be assigned 
to the fixed segment; all other sections will be assigned 
as overlayable segments. Fall-through control from one 
SECTION to another SECTION is accomplished in their order 


of appearance in the source program. 


b. Relationship to other sections - sections coded within 
the SEGMENT-LIMIT range will become the fixed segment 
and can communicate freely with each other. Those coded 
outside the stated SEGMENT-LIMIT range fall into the 
overlayable category and can also communicate from one 
to the other, except that a PERFORM may net have within 
its range any procedure-name contained in another over- 
layable segment. The compiler will create one non-over- 
layable (fixed) program area which will include all 
sections with priority numbers below the value specified 
in SPGMENT-LIMIT. One overlayable area in memory, the size 
of the largest declared section, will be created for prior- 
ity numbers equal to, or higher than, the value specified 
in SEGMENT-LIMIT. This method allows the smaller overlays 


to be called in without requiring memory alignment. 


PRIORITY NUMBERS.. 

Section overlay classifications are accomplished by means of a 
system of priority numbers. The priority number is included in 
the section header. The general format of a section header is as 


follows: 


section-name SECTION priority-number. 


bw aw Aetna mann mammine didn + Tan 
S De aust veces nm voaluc from 00 


POW 6 eta ae ae aes wep epete Te were 
£11C PHLAUE Avy fio. wus SQcr Pas gastg = 


through 99 (also O, 1, 2, etc., are permissible priority numbers). 
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If the priority number is omitted from the section header, the 
priority number is assumed to be 0. Segments with priority numbers 
ranging from O up to, but not including, the value specified in the 
SEGMENT-LIMIT clause (or 49 if no SEGMENT-LIMIT clause has been 
specified) are considered as being located in the fixed (non-over- 
layable) portion of the object program. Segments with priority num- 
bers equal to or higher than, the value specified in SEGMENT-LIMIT, 
but not exceeding 99, are independent segments (overlayable) and 
fully ALTERable. Sections in DECLARATIVES are assumed to be OO 

and must not contain priority numbers in their section headers. 


Priority numbers may be stated in any sequence and need not be in 


direct sequence. The fixed segment does not end when the first 
priority number equal to or greater than SEGMENT-LIMIT is encoun- 


tered. 


All segments, regardless of their physical location in the source 
program, whose priority number is less than that which is specified 
in SEGMENT-LIMIT will be "gathered" into a single non-overlayable 
segment. All other segments equal to, or greater than that which 
is specified in SEGMENT LIMIT will be "gathered" into overlayable 
segments according to equal priority numbers regardless of their 


physical location in the source program. 


The use of the "gathering" technique will allow programmers to 
create tailored segments which will reduce disk access times. For 
example: 

Program A: SEGMENT-LIMIT equals 17. 


Non-Gathered 


Segment Description Size in Digits 
00-16 Main body of the program 20,000 
17 Used frequently 1,000 
18 Used frequently 5, 000 
19 Used infrequently 4,000 
20 Used at EOJ only 500 
21 Used frequently 2,000 
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segment 


22 
23 
2h 
25 


Segment 
00-16 
17 
18 
19 
20 
17 
19 
17 
20 
20 


Segment 
00-16 
17 
18 
to 
20 


Used 
Used 
Used 
Used 


Main 
Used 
Used 
Used 
Used 
Used 
Used 
Used 
Used 
Used 


Main 
Used 
Used 
Used 
Used 


"Fall through" will 


Description size in Digits 
at BOJ only 1,000 
frequently 500 
if TRACE desired 1,500 
infrequently 3,000 

Gathered 

Description Size in Digits 
body of the program 20,000 
frequently 1,000 
infrequently 5,000 
infrequently 4,000 
at EOJ 500 
frequently (was segment 21) 2,000 
at BOJ (was segment 22) 1,000 
frequently (was segment 23) 500 
if TRACE desired (was segment 24) 1,500 
infrequently (was segment 25) 3,000 

Results of Gathering 

Description Size in Digits 
body of the program 20,000 
frequently 3,500 
infrequently 5,000 
infrequently 5,000 
infrequently 5,000 


be performed in the sequence as outlined in 


the above Non-Gathered example and not as they appear in the Re- 


sults of Gathering example above, therefore preserving the logical 


integrity of the original program. 


The Burroughs unique head-per-track disk file permits B 2500/B 3500 


Systems users to efficiently handle the COBOL technique of over- 


laying segments without requiring a programmer to state varied 
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hardware inadequacies and is the decided factor by which the B 2500/ 


B 3500 excels in its multiprocessing capabilities. 


The MCP will automatically check to see if an overlay being called 
for by an object program is already present in the object programs 
overlayable memory storage area. If it is present, no disk access 
is required and the program is not interrupted. If it is not pre- 
sent, the MCP interrupts the program and will access the disk for 
the desired overlayable portion of the program. The MCP uses over- 
lay segments directly from the program library where the object 
program was compiled to and is called in as an overlay in its ani- 
tial generated code each and every time it is required by the 
operating program. Although the initial code is retrieved each 
time, the latest addresses of ALTERed exits are still applicable 


and are in force by the use of an automatic ALTER table. 


INTERNAL PROGRAM SWITCHES. 

Every compiled object program contains eight programmatic switches 
provided automatically. Switches SW1 through SW7 are composed of 
one unsigned digit in length and are located in memory locations 
(base relative) 1 through 7. SW8 is located in memory location 


(base relative) 0. These switches can be set optionally as follows: 


a. Option 1. Switches can be initially set at the start of 
an object program's execution by punching one of the 


following MCP Control Cards: 


1) ? EXECUTE program-name VALUE O = nnnnnn* 
2) ? EXECUTE program-name VALUE 1 = nnnnnn** 
3) ? EXECUTE program-name VALUE 2 = nnnnnn*** 


nnnnnn represents internal program switches which may be 
set by placing a zero (OFF) or any digit 1-9 (ON) in the 


appropriate positions. 


* VALUE O sets switches 812345 as coded in nnnnnn. 
** VALUE 1 sets switches 123456 as coded in nnnnnn. 
***¥VALUE 2 sets switches 234567 as coded in nnnnnn. 
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Note that the VALUE statement in an MCP control message 
must always contain a six digit integer, thus only six 


switches can be affected using this method. The program- 
5 & 


name must be the object program identifier. 


b. Option 2. Switches can be referred to in the PROCEDURE 
DIVISION by the use of the reserved words SW1, SW2... 
Sw8. Each individual switch setting can be changed during 
operation by a MOVE, ADD, SUBTRACT, etc., for example: 
MOVE O TO SWi. 
ADD 1 TO SW2. 
SUBTRACT 1 FROM SW3. 


om Option 3. The systems operator can be programmatically 
informed that a switch requires setting by stating in the 


source program: 
STOP "SET SW2 ON". 
The proper keyboard entry to set the switch would be: 
mix-index IN 2 1 UN = 1 


The proper keyboard entry to resume operation would be: 


Note that SW6 has an affect on the MONITOR DEPENDING....requirement 


if the statement is present. 


The 
the 


All 
the 


switch memory locations are reserved and operate exactly like 


reserved TALLY locations. 


three options of setting switches can be incorporated during 


operation of a given program. 


of the verbs availahle for use with the COROT. Caomniler are 


categorized below. Although the word IF is not a verb in the 
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English language, it is utilized as such in the COBOL language. 
Its occurrence is a vital feature in the PROCEDURE DIVISION. 


a. Arithmetic: 
ADD 
SUBTRACT 
MULTIPLY 
DIVIDE 
COMPUTE 


b. Compiler directing declaratives: 
NOTE 
USE 


c. Compiler directing: 
COPY 


d. Data manipulations: 
MOVE 
EXAMINE 
SORT 


e. Ending: 


STOP 


f. Input-output: 
WRITE 
READ 
OPEN 
CLOSE 
ACCEPT 
DISPLAY 
SEEK 


g. Logical Control: 
IF 


h. Procedure Branching: 


GO 
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ALTER 
PERFORM 


wren 
AL L 


ZIP 


i. Source-level Debugging: 
TRACE 


SPECIFIC VERB FORMATS. 
The specific verb formats, together with a detailed discussion of 


the restrictions and iimitations associated with each, appear on 


the following pages in alphabetic sequence. 
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ACCEPT 


ACCEPT. 
The function of this verb is to permit the entry of low-volume data 


from the console typewriter. 


The construct of this verb is: 


ACCEPT data-name | FROM | = : ; | 
ae —— mnemonic-name 


This statement causes the operating object program to halt and 

wait for appropriate data to be entered on the SUPERVISORY PRINTER 
(SPO). The SPO entry will replace the contents of memory specified 
by the data-name. The systems operator answers an ACCEPT halt by 


keying in the following message: 


mix-index AXdata-required 


If a blank appears between the AX and data-required, the blank 


character will be included in the data-stream. 


The number of characters ACCEPTed must correspond to the size of 


the receiving data-name. 


If mnemonic-name is used, it must appear in the SPECIAL-NAMES para- 
graph equated to the hardware-name SPO. 


The receiving data-name may be a group level entry and cannot be 


subscripted. 


Because of the inefficiency of entering data through the keyboard, 
this technique of data transmission should be solely restricted 


to low-volume input data. 
The maximum number of characters per ACCEPT statement is unlimited. 


ACCEPT's of greater than 60 characters must be entered thru the SPO 
in exact groups of 60 characters, except for the last group, which 


can be of any size up to 60. 
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ADD 


ADD. 
The function of this verb is to add two or more numeric data 


items and adjust the value of the receiving field(s) accordingly. 
The construct of this verb has four options: 


Option 1: 


ADD literal-1 literal-2 
— data-name-1 data-name-2 aca 


c 
data-name-n [ ROUNDED | | ON SIZE ERROR any statement 


K OTHERWISE \ 


ELSE statement | 


Option 2: 


literal-1 literal-2 


abP eee ane Ep ee \ 


TO data-name-3 [ ROUNDED] [ data-name-n [ROUNDED] ... | 


| ox SIZE ERROR any statement Remstaces \ statement | | 


Se ee ee 


Option 3: 


data-name-1 data-name-2 


ABD eee: } ieee \ Eee \ ae 


data-name-3 


GIVING data-name-n [ROUNDED] [ox SIZE ERROR any 


statement Sea 


L ( 2LSE 


statement | | 


ADD 


continued 


Option 4: Z 


CORR 


ADD | CORRESPONDING 


\ data-name-1 TO data-name-2 [ROUNDED] 


| ov SIZE ERROR any statement Ei Sree \ etatement | | 


If Option 1 is used, the operands will be added together and the 


sum will be stored as the value of the last operand. 


With Option 2, the value(s) of the operand(s) preceding the word 
TO will be added together and the sum will be added to the existing 
value(s) of operand(s) following the word TO. A resumation does 
not occur if the value of one of the data-names changes in the 


process. For example: 
ADD A TO B,A,C. 


In Option 3, the sum of the operands preceding the word GIVING 
will be inserted as a replacement value of data-name following the 
word GIVING. 


In Options 1, 2, and 3, the data-names must refer to elementary 
numeric items only, except that data-names appearing only to the 
right of the word GIVING may refer to data-names which contain 


editing symbols. 
An ADD statement must have at least two operands. 


Editing items can only be used as the receiving field with the 
GIVING format. Operational signs and implied decimal points are 


not considered as editing symbols. 


The composite of operands, which is that data item resulting from 
the superimposition of all operands, excluding the data item that 


follows the word GIVING, aligned on their decimal points, must not 
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ADD 


continued 


contain more than 98 digits/characters. 


The internal format of operands referred to in an ADD statement 
may differ among each other. Any necessary format transformation 
and decimal point alignment is automatically supplied throughout 


the calculation. 
Each literal must be a numeric literal. 


If, after point alignment with the receiving data item, the cal- 
culated result would extend to the right of the receiving data 

item (i.e., a data-name whose value is to be set equal to the sum), 
truncation will occur. Truncation is always in accordance with 

the size associated with the resultant data-name. When the ROUNDED 
option is specified, it causes the resultant data-name to have its 
absolute value increased by 1 whenever the most-significant digit 


of the truncated portion is greater than or equal to five. 


Whenever the magnitude of the calculated result exceeds the largest 
magnitude that can be contained in a resultant data-name, a size 
error condition arises. In the event of a size error condition, one 
of two possibilities will occur, depending on whether or not the 

ON SIZE ERROR option has been specified. The testing for the size 
error condition occurs only when the ON STZE ERROR option has been 


specified. 


ae In the event that ON SIZE ERROR is not specified and 
size error conditions arise, the value of the 1. sultant 


data-name is unpredictable. 


b. If the ON SIZE ERROR option has been specified and size 
error conditions arise, then the value of the resultant 
data-name will not be altered. After determining that 
there is a size error condition, the "any imperative- 
statement" associated with the ON SIZE ERROR option will 


be executed. 


If Option 4 is used, multiple operations are performed. The 
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ADD 


continued 


operations are executed by pairing identical data-names of numeric 
elementary items subordinate in hierarchy to data-name-1l and data- 
name-2, Data-names match if they, and all their possible qualifiers 
up to, but not including data-name-1 and data-name-2, are the same. 
All general rules pertaining to the ADD verb apply to each indivi- 
dual ADD operation. For instance, if the size of matched data- 
names does not correspond in that the decimal point is out of 
alignment or the sizes differ, the decimal point alignment or trun- 


cation takes place according to the rules previously discussed. 


In the process of pairing identical data-names, any data-name with 
the REDEFINES clause is ignored. Similarly, data-names which are 
subordinate to the subordinate data-names with the REDEFINES clause 


are ignored. 


NOTE 
This restriction does not preclude data-name-1 
or data-name-2 themselves from having REDEFINES 
clauses or from being subordinate to data-names 
with REDEFINES clauses. 


If the CORR or CORRESPONDING option is used, no item in the group 


referred to can contain an OCCURS clause. 


If, in Option 4, either data-name-1 or data-name-2 is a group item 
which contains RENAMES entries, the entries are not considered in 


the matching of names. 


In Option 4, data-name-1 and data-name-2 must not have a level 
number of 66, 77, or 88. 


In Option 4, CORR is an acceptable substitute for CORRESPONDING. 
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| 
ALTER 


ALTER. 


The function of this verb is to modify a predetermined sequence 
of operations by changing the operand of a labeled GO TO paragraph. 


The construct of this verb is: 


ALTER procedure-name-1 TO [PROCEED TO] procedure-name-2 


| procedure-name-3 [TO PROCEED TO] procedure-name-4 ... ] 
| L 
Procedure-name-1, procedure-name-3, ... are names of paragraphs, 


each of which contains a single sentence consisting of only a GO 
TO statement as defined under Option 1 of the GO TO verb. Proce- 
dure-name-2, procedure-name-4, ... are not subject to the same 
restrictions and thus may be either paragraph names or section 


names. 


When control passes to procedure-name-1, control is immediately 
passed to procedure-name-2 rather than to the procedure-name ref- 
erred to by the GO TO statement in procedure-name-i. Procedure- 
name-l is therefore a "gate" which remains set until again referen- 


ced by another ALTER statement. 


Segmentation does not affect ALTER. Any GO TO paragraph may be 
ALTERed from anywhere in the program to PROCEED to any section 


or paragraph-name contained in the program. 


aa3s2 


CLOSE 


CLOSE. 
The function of this verb is to communicate to the MCP that the 
designated file-name being operated on or created is programmati- 


cally completed, and also to fulfill the stated action requirements. 


The construct of this verb is: 


LOCK 
PURGE 
RELEASE 
NO REWIND 


CLOSE file-name-1 [ REEL] 


[file-name-2... 


File-names must not be those defined as being SORT files. 


The file must have been opened previously before a CLOSE statement 


can be executed. 


This statement applies to the following categories of input and 


output files: 


a. Files whose input and output media involve print files, 


card files, etc. 


b. Files which are contained entirely on one reel and are 


the only files on that reel. 


c. Files which may be contained on more than one physical 
reel. Furthermore, the number of reels might possibly be 
higher than the number of physical tape units provided 


on the system. 


d. Disk files. 


To show the effects of the CLOSE options, each type of file will 


be discussed separately. 


a. Card and MICR Input. 
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CLOSE 


continued 


1) CLOSE - releases the input areas, but does not 


release the reader. 
2) CLOSE WITH NO REWIND -~ same as CLOSE. 


3) CLOSE WITH RELEASE - releases the input areas and 
returns the reader to the MCP. 


4) CLOSE WITH LOCK - same as CLOSE WITH RELEASE. 
5) CLOSE WITH PURGE - same as CLOSE WITH RELEASE. 
b. Card Output. 


1) CLOSE - punches the trailer label (if any), releases 


the output areas, but does not release the punch. 
2) CLOSE WITH NO REWIND - same as CLOSE. 


3) CLOSE WITH RELEASE - releases the output areas and 
returns the punch to the MCP. 


4) CLOSE WITH LOCK - same as CLOSE WITH RELEASE. 
5) CLOSE WITH PURGE - same as CLOSE WITH RELEASE. 
c. Tape Input. 


1) CLOSE - checks the trailer label (if any) and rewinds 
the tape. It does not release input areas, and the 


unit remains assigned to the program. 


2) CLOSE WITH NO REWIND - same as CLOSE except the tape 


is not rewound. 


3) CLOSE WITH LOCK - releases the input areas, checks 
the trailer label (if any), rewinds the tape, and 
the MCP marks the unit not ready. 


4) CLOSE WITH RELEASE - releases the input areas. checks 
the trailer label bar any), rewinds the tape, and 
returns the unit to the MCP. 
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5) 


CLOSE 


continued 


CLOSE WITH PURGE - releases the input areas, checks 
the trailer label (if any), rewinds the tape, and 
if a write ring is in the reel, over-writes the label, 


making the tape a scratch tape. 


Tape Output. 


1) 


2) 


5) 


4) 


5) 


CLOSE - writes the trailer label (if any), and 
rewinds the tape. The unit remains assigned to 


the program. 


CLOSE WITH NO REWIND - writes the trailer label 
(if any). The tape remains positioned beyond the 
trailer label (or tape mark if there is no trailer 


label). The unit remains assigned to the program. 


CLOSE WITH LOCK - releases the output areas, writes 
the trailer label (if any), rewinds the tape, and 
the MCP marks the unit not ready. 


CLOSE WITH RELEASE - releases the output areas, 
writes the trailer label (if any), rewinds the tape, 


and returns the unit to the MCP. 


CLOSE WITH PURGE - releases the output areas, writes 
the trailer label (if any), rewinds the tape, returns 
the unit to the MCP, and the MCP over-writes the label 


making it a scratch tape. 


Printer and Lister Output. 


1) 


2) 


3) 


CLOSE ~ prints the trailer label (if any), releases 
the output areas but does not release the printer or 


lister. 
CLOSE WITH NO REWIND - same as CLOSE. 


CLOSE WITH RELEASE - releases the output areas and 


returns the printer or lister to the MCP. 
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CLOSE 
continued 


4) CLOSE WITH LOCK ~ same as CLOSE WITH RELEASE. 
5) CLOSE WITH PURGE - same as CLOSE WITH RELEASE. 


f. Disk Files. The actions taken on files ASSIGNED to 

Z DISK will be discussed in terms of old files and new 
files. An old file is one that already exists on disk 
and appears in the MCP Disk Directory. A new file is 
one created by the program and does not appear in the 
Directory. A new file may only be referenced by the 


program which creates it. 
1) CLOSE. 


a) For an old file, the file is left in the Direc- 


tory and is available to other programs. 


b) For a new file, the file is not entered in the 
Directory, however, it remains on the disk and 


may be OPENed again by this program. 


2) CLOSE WITH NO REWIND - not permitted on 
disk files. 


3) CLOSE WITH RELEASE. 


lt aoe 


a) For an oid fiie, same as CLOSE fiie-name. 


b) For a new file, the file is entered in the 
Directory (thereby making it an old file). 
The file is available to be OPENed by any 


program. 
4) CLOSE WITH LOCK. 


a) For an old file, the file remains in the 


Directory and is made available. 


on 
Ne 
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CLOSE 


continued 


5) CLOSE WITH PURGE. 


a) An old file is immediately removed from the disk 


and deleted from the Directory. 


b) <A new file will be immediately removed from 
the disk. 


&- Remote Devices (Data Communications). 


1) CLOSE - releases the input areas, but does not 


release the adapter. 


2) CLOSE WITH RELEASE - releases the input areas and 


returns the remote device to the system. 


If a file has been specified as being OPTIONAL, the standard END- 
OF-FILE processing is not permitted whenever the file is not pre- 


sent. 


If a CLOSE statement without the REEL option has been executed for 
a file, a READ, WRITE, or SEEK statement for that file must not be 
executed unless an intervening OPEN statement for that file is 


executed. 


The CLOSE REEL option signifies that the file-name being CLOSEd 

is a multi-reel magnetic tape input/output file. The reel will be 
CLOSEd at the time of encountering the CLOSE REEL statement and an 
automatic OPEN of the next sequential reel of the multi-reel file 


will be performed by the MCP. 


pier 


COMPUTE 


COMPUTE. 


The function of this verb is to assign to a data item the value 


of a numeric data item, literal, or arithmetic expression. 


The construct of this verb is: 


data-name-2 
COMPUTE data-name-1 [ROUNDED] = numeric-literal 


| arithmetic expression 


oy SIZE ERROR any statement | \ euse \ statement | 


The literal must be numeric literal. 


Data-name-2 must refer to an elementary numeric item. Data-name-1 


may describe a data item which contains editing symbols. 


The arithmetic expression option permits the use of any meaningful 
combination of data-names, numeric literals, arithmetic operators, 


and parenthesization, as required. 
The maximum size of an operand is 99 decimal digits. 


All rules regarding ON SIZE ERROR, ROUNDED options, truncation and 


editing are the same as for ADD. 


If numeric-literal exponents are used, the results are accurate up 


to 18 digits in length or to as many decimal places. 


If data-name-2 exponent is used, the accuracy of the result is 
dependent upon whether or not; and the manner in which, the result 
is rounded, truncated and/or defined. An example of a numeric 


literal exponent would be, 


COMPUTE X = A*%*2 
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COMPUTE 


continued 


where A is equal to 4. The result will be the X equals 16. 
An example of data-name-2 exponent would be, 
COMPUTE X = A**B 


where A equals 4 and B equals 2. The result will be that X equals 
15.999 if X is defined as PC 99.999 or X equals 15 if XK is defined 
as PC 99. 


An example of data-name-2 exponent (ROUNDED) would be, 
COMPUTE X ROUNDED = A**B 


where A equals 4 and B equals 2. The result will be that X = 16 
if X is defined as PC 99 or X equals 16.000 if X is defined as 
PC 99.999. 


When data-name-1l is specified as being ROUNDED, regardless of the 


decimal point location, the result will reflect greater accuracy. 


NOTE 
The 17 KB version of the COBOL Compiler will 
accept only integer numeric-literal exponents 


consisting of six digits or less in length. 


The 30 KB version of the COBOL Compiler will 
accept the entire COMPUTE construct, however, 
the use of exponents comprised of data-name-2, 
fractionalized literals or numeric-literals 
longer than six digits require the presence 


of floating point hardware. 
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COPY 


COPY. 
The function of this verb is to allow library routines contained 


on a source language library file to be incorporated into the 


program. 


The construct of this verb contains two options which are: 


Option 1: 


COPY library-name e 


Option 2: 


COPY library-name 


data-name-1 | data-name-2 


word-3 BY word-4 
data-name-3 \ — yee eae | are : 


| REPLACING alan ' BY { word-2 \ 


The COPY statement may refer only to one library entry in the li- 
brary for every time it is used. Library-name is the value placed 
in a library entry bounded by quotes or a procedure-name type word. 
The library entry bounded by quotes cannot contain more than six 
characters, where the procedure-name entry may be more than six char- 
acters, however, if the procedure-name type entry is greater than 


six characters, only the most significant six will be used for the 


library-name. If the library-name is a procedure-name type word and 
: . to Preece asa) 1 te ' 1 fad cee stot onl Deak Be Soe fen we S 

25 HUMP ay Muse ve Se paiaveu Livin vue period il present) OY a 
space. 
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COPY 


continued 


The library file is inserted in the source program immediately 
after the COPY statement at compilation time. The result is the 
same as if the library data were actually a part of the source 


program. 


Library data can encompass an entire procedure which may be any 
number of statements, paragraphs, or entire source program divi- 


sions or parts thereof. 
Library files may not contain COPY statements. 


No statement may appear to the right of the COPY statement on the 


same source card . 


COPY during the PROCEDURE or ENVIRONMENT divisions must follow a 
SECTION or paragraph-name and all information contained in the 


library file is included and can be fully referenced. 


On a COPY during the DATA DIVISION, the FD file-name, or the level 
O1 data-name preceding the COPY is saved and the relative constructs 


from the library file are discarded. For example, the statement 
FD MASTER-INPUT COPY "MASTER". 


will cause the library file titled MASTER to be inserted into the Bi 
source program immediately following the COPY statement. The source 
program must refer to the FD file-name as MASTER-INPUT and not as 
MASTER. The library FD file-name will appear on the output listing, 


but cannot be referenced in the source program. 


Library files copied from the library are flagged on the output 


listing by an L preceding the sequence number. 


In Option 2, a word is defined as being any COBOL word that is not 
a COBOL Reserved Word. For example, the following statement re- 
flects non-reserved COBOL words AAA,BBB and 1234, where AAA and BBB 


are data-names and 1234 is a COBOL word: 


MULTIPLY AAA BY BBB, THEN GO TO 1234. 
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COPY 
continued 


If the COPY REPLACING option is specified, each word-1 or data-name- 
i stipulated will be repiaced BY the word-2 or data-name-2 entries 


specified in the option. Data-names may not be subscripted, indexed 


or qualified. 
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continued 


Use of the COPY REPLACING option requires that the “library-name" 
COBOL source image file be present, on disk, prior to compiling the 
source program containing the COPY REPLACING option. The use of 
this option will not cause alteration of the library file residing 


on disk. 


In Option 2, literals contained in a library file cannot be replaced 


by literals, words or data-names. 


In Option 2, if an integer is used for a word and it is the last 
entry in a replacing list, it must be followed by a blank and then 


a period. For example: 


COPY REPLACING AAA BY HOURS, 
BBB BY PAY-SCALE, 1234 BY 58b. 


The COPY REPLACING option is exceptionally beneficial for conversion 
of generalized COBOL source language library routines into specific 
and well-named routines within a given program. For example, a 
generalized COBOL source language library routine may use the 


following data-names for their noted purposes: 


Data-name Purpose 
AAA Monthly hours worked per employee. 
BBB Employee pay-rate. 
CCC Employee social security number. 
DDD Employee income tax rate. 
EEE Employee year to date gross income. 
PEF Employee year to date net income. 
GGG Employee gross pay for month. 
HHH Employee gross pay for month. 
1234 Specifies a GO exit from the routine. 
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A program calling upon the above generalized routine can replace 
the non-descript data-names with descriptive names as defined in 
the programs record description or WORKING-STORAGE area. For 


example: 


COPY... REPLACING AAA BY HOURS-WORKED 
COPY... REPLACING BBB BY RATE-OF- PAY 
COPY... REPLACING CCC BY SOC-SEC-NR 
COPY... REPLACING DDD BY INC-TAX-RATE 
COPY... REPLACING EEE BY YR-TO-DATE-GROSS 
COPY... REPLACING FFF BY YR-TO-DATE-NET 
COPY... REPLACING GGG BY THIS-MONTHS-GROSS 
COPY... REPLACING HHH BY THIS-MONTHS-NET 


COPY... REPLACING 1234 BY WRITE-EMPLOYEE-DRAFT. 


The specified source program data-names and exit points will be 
inserted into the library file routine at every occurrence of the 


assigned generalized names within the routine. 


See appendix G for an example of a generalized Square Root Routine 
being specified by a COPY REPLACING option. 


LIBRARY CREATION. A library file will be created only during a 
COBOL compilation each time that a source card is encountered con- 
taining an L in column 7 with a library-name, bounded by quotation 
marks starting in Field A of the same card. A library-file may 


contain up to a maximum of 20,000 card images. 


Each library file in the source program will be terminated when a 
card containing an L in column 7 followed by all blanks or another 


library-name is encountered. 
Library-names cannot start with a blank character or a dash (-). 


Once a file has been created, it may be COPYed by other programs. 
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or the creating program in succeeding FD, O01, or procedure COPY 


statements. 


The source data used to create an original library file will also 


be compiled into the object program at the point of appearance. 


All assigned library-names must be unique to other library-names 
contained in the library to preserve the integrity of the COBOL 


library system. 


Library files to be used with the COPY verb can be created by a 


user program which creates an unblocked card image file on disk. 


Figure 5-1 through 5-8 provide examples of the COBOL COPY feature. 
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Figure 5-1. Example 1 of COPY Coding 
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DISPLAY 


DISPLAY. 
The function of this verb is to provide for the printing of low- 


volume data, error messages, and operator instructions on the con- 


sole typewriter. 


The construct of this verb is: 


DISPLAY aoe \ [Agee oe ] 


data-name-1 


[ upon 1 side : \ ] 
mnemonic-name 


data-name-2 


Each literal may be any figurative constant except ALL. 
All special registers (DATE, TIME, etc.) may be DISPLAYed. i 


The DISPLAY statement causes the contents of each operand to be 
written on the supervisory printer (SPO) from the MCP SPO queue 


to ensure that a program is not operationally deterred while a 


message is printing. 


If a figurative constant is specified as one of the Operands, only 


a single character of the figurative constant is displayed. 


The data-names may be subscripted and can be PICTUREd as COMPUTA- fl 
TIONAL or DISPLAY items. 


An infinite amount of characters may be displayed with one state- 
ment. The compiler will supply automatic carriage returns and line 


feeds, as may be appropriate. 


The DISPLAY series option will cause the literals or data-names 
to be printed on one line and, if required, the compiler will cause 
automatic carriage returns and line feeds for information extending 


to other lines of print. The compiler will format each line so 


eee | 


—_—_—_—_—_— 


DISPLAY | 


| continued 


line, and continued on the following 111 


When mnemonic-name is used, it must appear in the SPECIAL-NAMES 
paragraph equated to the hardware-name SPO. 
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DIVIDE. 
The function of this verb is to divide one numerical data-item 


into another and set the value of an item equal to the result. 
The construct of this verb contains two options which are: 


Option 1: 


DIVIDE [MOD] ee y 


data-name-1 f 


INTO data-name-2 [ ROUNDED] 


os SIZE ERROR any statement ac \ statement ] 


Option 2: 


literal-1l BY \ literal-2 
DEVIDE «1 NO) Veo ary { INTO f (ee ree i 


GIVING data-name-3 [ ROUNDED] 


REMAINDER data-name-4 [RounpED} | 


ox SIZE ERROR any statement E oes \ seatenent | | 


Data-name-3 and data-name-4 of Option 2 may refer to a data item 


that contains editing symbols. 
Each literal must be a numeric literal. 


Division by zero is not permissible and, if executed, will result 
in a size error indication. This can be handled programmatically, 


either by doing a zero test prior to the division, or by the use 


5252 


DIVIDE 
continued 


of the SIZE ERROR clause. If SIZE ERROR is not written, an attempt 
to divide by zero will result in unpredictable results. Processing 


wiii continue. 
All data-names must refer to elementary numeric items. 


In Option 1, the value of the operand preceding the word INTO will 
be divided into the operand following INTO and the resulting quo- 


tient stored as the new value of the latter. 


The use of the BY option will cause literal-1/data-name-1 to be 
divided by literal-2/data-name-2, whereas the INTO option will 
cause literal-1/data-name-1 to be divided into literal-2/data- 


name-2. 


In Option 2, the resulting quotient will be stored as the new 
value of data-name-}3. The value of the operands immediately to 


the ieft of the word GIVING will remain unchanged. 


The ROUNDED option and ON SIZE ERROR clause and truncation are 
the same as discussed for the ADD statement (page 5-30). 


The size of the operands is determined by the sum of the divisor 


and the quotient. The sum of the two cannot exceed 99 digits. 
The use of the MOD cption will cause the remainder to be placed 


in data-name~2 of Option 1 and data-name-3 of Option 2. The re- 


mainder will be carried to the same degree of accuracy as defined 


in the PICTURE of the quotient and all extra positions will be 


filled with zeros. 
Literals cannot be used as dividends. 


The use of the REMAINDER option will cause the remainder to be 
placed in data-name-4 and data-name-3 will contain the quotient, 
unless the MOD option is also included. If the MOD option is 
included, both data-name-3 and data-name-4 will contain the 


remainder. 
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END-OF-JOB 


END-OF-JOB. 
The function of this verb is to notify the COBOL Compiler that 


all source statements within a program have been read. 


The construct for this indicator is: 


END-OF-JOB. 


The END-OF-JOB statement is for documentation only but if used 
it must be the last source program card ina B 2500/B 3500 COBOL 
deck. It immediately precedes the MCP END Control Card. 
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ENTER 


ENTER. 


This verb provides for the use of an alternate language. 


0) 


The construct of this verb is: 


ENTER 


\ SYMBOLIC \. 


COBOL 


ENTER COBOL is used at the point in the source program that ends 
the alternate language and where the programmer wants to continue 


with COBOL. 


ENTER SYMBOLIC begins in column 12 or after and must be followed by 
a period. Each symbolic entry (instruction) may be followed by a 
period or the period may be omitted, however, the last instruction 


of a procedure must be followed by a period. 


Procedure-names must start in columns 8-11 and must be followed by 
a period. Procedure-names may be used freely and referenced by 
branching instructions. It is permissible to reference procedure- 


names located outside of ENTER SYMBOLIC. 


COBOL data-names may be used in the A, B, or C operands. No de- 

tailed syntax checking is performed other than data-name look-up, 
therefore, use of the symbolic language requires knowledge of the 
B 2500/B 3500 Assembler Language. 


The symbolic operators can appear anywhere on the card after column 

11. Any word or value in excess of the required number of operators 
will result in a syntax error. Literals (1235 +123) of any size may 
be used in the A operand. If it is desired to carry an in-line lit- 


eral the symbolic operator LIT is used. For example: 


LIT 123456789 
LIT @ABCDEF@ 
LIT "ABC567" 
LIT @C1234@ 


ENTER 


continued 


The operating system requires that all in-line constants be char- 
acter adjusted. In order to accomplish this, a zero may be added; 
thus, a literal 2 will generate as a literal 20. If it is neces- 
sary to use numbers such as this, it will be the programmer's 
responsibility to use leading zeros or at least be aware of this 


condition. 


The following instructions may be used and require two operands, 
the first of which may be a literal. The length for AF and BF 


is taken from the data definition. 


INC SZU MVA 
MVN DEC CPN 
MVR CPA SDU 
SDE SZE 


The following instructions require three operands, the first of 
which may be a literal. The length for AF and BF is taken from 


data definitions. 


ADD SUB MPY 
DIV FAD FSU 
FMP FDV AND 
ORR NOT EDT 


The following instructions require one operand that must be a pro- 
cedure-name which appears either within or outside the ENTER state- 


ment. 


NOP LSS EQL 
LEQ GTR NEQ 
GEQ BUN OFL 
HBR 


The following are exceptions to the above classification and must 


be used as shown. 
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Required No. Description 
Operator of Operands of Operands 
BCT ui Literal. 
HBK 1 Literal. 
NTR 2 Literal and procedure-name. 
EXT 0 Only normal exits are allowed. 
MVW \ 3 Literal for number of words to be 
MVC) moved, A-ADDRESS, and B-ADDRESS. 
TRN \ 4 Literal size, A-ADDRESS, B-ADDRESS, 
me and C-ADDRESS. 
sae 3 Literal AF, literal BF, and 
HOE A-ADDRESS. 
SMF a Literal AF (0 or 1). 
SEA 4 Literal BF, A-ADDRESS, B-ADDRESS, 


and C-ADDRESS (see pages 5-61 and 5-62 


for more detailed explanation). 


All the operators, literals (LIT): index register names 
AS 


IX3), data formats (INA, UNS, SGN, and DSP) and RB 


roa LS ADF 5 ite LT LN 5 cist LE 


reserved words within ENTER (only). 


A symbolic operand has the following format: 


\ 
data-name 
file-name 
IX] INA 
Tx2 .) UNS (f+ : : : ‘ , { at 
xa >< Son (? _ numeric-literal : numeric literals IxX2 
BAS DSP IX3 
TALLY 
SW1-SW8 


Ae 
“— 


5-60 


ENTER 


continued 


All options must be separated by a colon (2). The INA, UNS, SGN, 
and DSP specify data formats of indirect addressing, unsigned 4- 
bit, and DISPLAY 8-bit respectively. 


The signed numeric literal option specifies that the starting 
address is to be incremented or decremented by the specified num- 
ber of digits or characters, depending on the data format speci- 


fied at that time. 


The unsigned numeric literal specifies that the size of the field 
is to be changed to that value. The value should not exceed that 


allowed for the particular instruction or it will be truncated. 


Index registers IX1, IX2, and IX3 used in conjunction with a 
data-name indicate that the index register bit for that operand 
is to contain that register setting. IXl1, IX2, and IX3 may also 
be used as a data-name in which case the contents of the register 


will be affected. 


No consistency checking is performed on any of these options; all, 
none, or any combination may appear. Duplicate appearances are 


not considered errors. The options are processed in the order in 


which they appear. Particular care must be exercised when changing 
data-format and also address on the same data-name. If the incre- 
ment value precedes the UNS, etc., the address will be incremented 
according to the old format. Conversely, if it follows the format 


change, it will be incremented according to the changed format. 


BAS (base) will provide the address 000000 with length specified 
as one, unsigned numeric. By using address and size modification, 


it is possible to reference any area within the program. 
SEA (Search) requires four operands in the following format: 
ae Increment - a numeric literal for BF. 


b. A-ADDRESS - a literal or a data-name. Its size is used 


in the AF (size may be modified as previously described). 
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c. B-ADDRESS - data-name only. It must meet the require- 
ments of SEARCH as in the B 2500/B 3500 Assemblers 


Reference Manual. 


d. C-ADDRESS - any data-name. To set the C-ADDRESS as 
described in the Assemblers Reference Manual, use UNS, 


SGN, or DSP to set it to OO, O1, or 10 respectively. 
The following is an example of the SEA (Search ) command: 
SEA 05 AX BX BX:+500:SGN 


COBOL type subscripting is not allowed in ENTER SYMBOLIC. It is 


the programmer's responsibility to set up any required indexing. 


The use of a file-name as an operand will result in an address 
pointing to the start of the File Information Block (FIB) for 
that file, with 4-bit usage indicated. The size of the FIB is 
200 digits, therefore, since the size field in an instruction is 


only two digits long, care must be exercised. 


If a BUN or some other branching instruction is referencing a proce-# 
dure-name in an overlayable segment, the programmer must do his own 
overlaying by setting up the segment dictionary or by being sure that 


the specific overlay is already in core. Another way is to code: 


ENTER SYMBOLIC. 


ENTER COBOL. 
GO TO (overlay segment label). 


ENTER SYMBOLIC. 


instead of using BUN. This will cause the COBOL Compiler to 


generate the overlay code. 


If IX1, IX2, or IX3 are used in the ENTER SYMBOLIC statement, 
their values are not saved and, after re-entry of ENTER SYMBOLIC, 


bt Se) oe 1 1 am oe ae a ig ie tae Wee Oe \ 2 atte Rte, eee sees a 
bIiLG CUdiestiivs Vai bALSSS LTBtSveL1 Ss ALS UllLpi cusLi vavice 


Modifiers may not be used with procedure-names {(tabels). 
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EXAMINE. 
The function of this verb is to replace a specified character, 
and/or to count the number of occurrences of a particular charac- 


ter in a data item. 


The construct of this verb is: 


EXAMINE data-name 


ALL Uf titeral-1 bs 
TALLYING { LEADING | ens REPLACING BY | ete 
f data-name-1 eS ee data-name-2 


UNTIL FIRST 


ALL ; 
REPLACING J LEADING yee eaee B roan i i 
[UNTIL] FIRST ata-name-3 ata-name- 


The description of data-name must be such that USAGE is DISPLAY 


explicitly or implicitly. 


Each literal used in an EXAMINE statement must consist of a single 
DISPLAY character. Figurative constants will automatically re- 


present a single DISPLAY character. 
Examination proceeds as follows: 


ae For items that are not numeric (4-bit), examination 
starts at the left-most character and proceeds to the 
right. Each 8-bit character in the item specified by 
the data-name is examined in turn. Any reference to the 


first character means the left-most character. 
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EXAMINE 


continued 


b. If an item referenced by the EXAMINE verb is numeric, 
it must consist of numeric (8-bit) characters and may 
possess an operational sign. Examination starts at 
the left-most character (excluding the sign) and pro- 
ceeds to the right. Each character except the sign is 
examined in turn. Regardless of where the sign is 
physically located, it is completely ignored by the 
EXAMINE verb. Any reference to the first character 


means the left-most numeric character. 


The TALLYING option creates an integral count (i.e., a tally) 
which replaces the value of a special register called TALLY. The 


count represents the number of: 


a. Occurrences of literal-1 or data-name-1 when the 


ALL option is used. 


b. Occurrences of literal-1 or data-name-1 prior to 
encountering a character other than literal-1 or 


data-name-1 when the LEADING option is used. 


c. Characters not equal to literal-1 or data-name-1 
encountered before the first occurrence of literal-1 


or data-name-~l when the UNTIL FIRST option is used. 


When either of the REPLACING options is used (i.e., with or with- 


out TALLYING) the replacement rules are as follows: 


a. When the ALL option is used, then literal-2 or data-name-2 
or literal-4 or data-name-4 is substituted for each 
occurrence of literal-1 or data-name-1 or literal-3 or 


data-name-}3. 


b. When the LEADING option is used, the substitution of 
literal-2 or data-name-2 or literal-4 or data-name-4 
terminates as soon as a character other than literal-1l 
or data-name-1l or literal-3 or data-name-3 or the right- 


hand boundary of the data item is encountered. 
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continued 


c. When the UNTIL FIRST option is used, the substitution of 
literal-2 or data-name-2 or literal-4 or data-name-4 term- 
inates as soon as literal-1l or data-name-~1 or literal-3 or 
data-name-3 or the right-hand boundary of the data item is 


encountered. 


d. When the FIRST option is used, the first occurrence of 
literal-3 or data-name-3 is replaced by literal-4 or data- 


name-4. 


The field called TALLY is a 5-digit field provided by the compi- 
ler. Its usage is COMPUTATIONAL and will be reset to zero automa- 
tically when the EXAMINE...TALLY option is encountered. 
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QD 
a PERFORM loop, whenever required. 


The construct of this verb is: 


EXIT. 


If the EXIT statement is used, it must be preceded by a paragraph- 
name and appear as a single one-word paragraph. EXIT is documen- 


tational only, but if used, must follow the rules of COBOL. 


The EXIT is normally used in conjunction with conditional state- 
ments contained in procedures referenced by a PERFORM statement. 
This allows branch paths within the procedures to rejoin ata 


common return point. 


If control reaches an EXIT paragraph and no associated PERFORM or 
USE statement is active, control passes through the EXIT point 
to the first sentence of the next paragraph and is treated for 


all intents and purposes as a NOP (No Operation). 


FILL 


FILL. 
The function of this verb is to pass data from one program to another 


when both programs are operating in the same multiprogramming mix. i 


The construct of this verb has two options which are: 


Option 1: 


FILL data-name-1 INTO eee literal-1 \ 


data-name-2 


[ PROCEED TO paragraph-name | 


Option 2: 


FILL data-name-3 FROM non-numeric literal-2 
— —— data-name-¥ 


[ PROCEED TO paragraph-name] 


The MCP Core to Core (CRCR) option must be set "ON" when an object 
program containing the FILL verb is being operated under the con- 


trol of a standard version of the MCP, 


Option 1 is the data-sending construct whereby a program using this 
statement can converse from a self-contained data-name, with another 
operating program in the same multiprogramming mix. The size of 
data-name-l is restricted only by the amount of memory required by 
the programs themselves. Data-name-1 must be declared as alphanum- 
eric in a DISPLAY mode. Data-name-2 must be declared as a PICTURE 
x(6) which specifies the program-identifier of the receiving program 
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continued 


as reflected in the MCP Program Directory. The receiving program 
must be in the MCP Mix. If the non-numeric literal-1l is "bbbbbb" 
(blank), it specifies that any number of receiving programs are to 
become eligible for the transmission of data. The PROCEED TO clause, 
when specified, will cause a branch to a paragraph-name when there 
is no receiving program ready to receive a transmission. If this 
clause is not used, the program will wait until the FILL has been 


completed, before proceeding to the next instruction. 


Option 2 is the data-receiving construct whereby a program using 
this statement can receive data from a multiprogramming sending pro- 
gram (data-name-4) into a self contained data-name-3. Data-name-3 
must be declared as alphanumeric in a DISPLAY mode. The sending 
program must be in the MCP Mix. If the non-numeric-literal-2 is 
‘bbbbbb" (blank), it specifies that any number of sending programs 
are to become eligible for the transmission of data. The PROCEED 
TO clause, when specified, will cause a branch to a paragraph-name 


if the sending program is not ready to transmit. 
Data-name-2 and data-name-4 may not be subscripted or indexed. 


Reference should be made to the FILL verb located in section 6 (Data 
Communications) of this manual. That construct, when specified, 
requires the presence of a version of the Data Communications MCP 


at object program execution time. 


GO 


GO. 
The function of this verb is to provide a means of breaking out of 
the sequential, sentence by sentence, execution of code, and to 


permit continuation at some other location indicated by the pro- 


cedure-name(s). 


The construct of this verb has two options which are: 


Option 1: 


GO TO [ procedure-name]. 


Option 2: 


GO TO procedure-name-1 procedure-name-2 [ procedure-name-3... | 


DEPENDING ON data-name. 


Each procedure-name is the name of a paragraph or section in the 
PROCEDURE DIVISION of the program. 


In Option 2, GO... DEPENDING... may specify up to 999 procedure- 


names in a single statement. 


In Option 2, the data-name in the format following the words DE- 
PENDING ON must be a numeric elementary item described without 

any positions to the right of the assumed decimal point. Further- 
more, the value must be positive in order to pass control to the 
procedure-names specified. Control will be transferred to proce- 
dure-name-1 if the value of the identifier is 1, to procedure-name-2 


if the value is 2, etc. If the value of the identifier is any thing 
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other than a positive integer, or if its value is zero, or its 
value is higher than the number of procedure-names specified, con- 
trol will be passed to the next statement in normal sequence. For 


example: 


GO TO MFG, RE-SALE, STOCK, DEPENDING ON S-O. 


Value of S-O GO TO procedure-name 


next sentence 
next sentence 
MFG 

RE-SALE 

STOCK 


FwWNKH OF 


next sentence 


Whenever a GO statement (represented by Option 1) is executed, 
control is unconditionally transferred to a procedure-name, or 

to another procedure-name if the GO statement has been changed by 
an ALTER statement. 


A GO statement is unrestricted as to where it branches to ina 
segmented program. It can call upon any segment (fixed or over- 
layable) at either section level or paragraph levels nested to 


any depth within a section. 


When, in Option 1, the GO statement is referred to by an ALTER 
statement, the following rules apply regardless of whether or not 


procedure-name is specified: 
a. The GO statement must have a paragraph~-name. 


b. The GO statement must be the only statement in the 
paragraph. 


c. If the procedure-name is omitted, and if the GO state- 
ment is not referenced by an ALTER statement prior to 
the first execution of the GO statement. the MCP will 
terminate the job and cause an error message reflecting 


an invalid address. 
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If a GO statement represented by Option 1 appears in an imperative 
statement, it must appear as the only or the last statement ina 


sequence of imperative statements. 


an fA. 


IF. 

The function of this verb is to control the sequence of commands to 
be executed depending on either a condition, the class status of a 
field, or the relative value of two quantities. The purpose of a 
condition is to cause the object program to select between alter- 


nate paths depending on the passing or failing of the test. 


The conditions are subdivided into six major categories which are: 


ae Simple conditional tests. 
b. Conditional statements. 
c. Relation tests. 

d. Relation value tests. 

e. Class tests. 


ft. Conditional variable tests. 


SIMPLE CONDITIONAL TESTS. The simple conditional tests are contained 


in option i. 


Option 1: 


iF condition-1l statement-l1 


CONDITIONAL STATEMENTS . A conditional statement specifies that the 
truth value of "yes" in a given condition is to be determined and 
that subsequent action of the object program is contingent upon the 
resultant value. READ and WRITE statements which specify an INVALID 
KEY option, or arithmetic statements (ADD, COMPUTE, DIVIDE, MULTI- 
PLY, and SUBTRACT ) which specify a SIZE ERROR option are considered 


as being conditional. 


In Option 2, statement-1 or statement-2 can be either imperative or 
conditional. If conditional, it can in-turn contain conditional 


nents to an arbitrary depth. 


IF 


continued 


See Section 8, COBOL Compiler Option Card, for information per- 
taining to the generation of the SEARCH operator into an object 


program for conditional statements. 


Option 2: 


IF condition 


statement-1 OTHERWISE statement-2 
NEXT SENTENCE ELSE NEXT SENTENCE 


RELATION TESTS. A relation test involves a comparison of two 
operands; either of which can be a data-name, a literal, ora 
formula. The comparison of two literals is not permitted. Com- 
parison of elementary numeric items is permitted regardless of 
their individual USAGEs. All other comparisons require that the 
USAGE of the items being compared be the same. Group numeric items 
are defined to be alphanumeric. It is not permissable to compare 
an index-data-name against a literal or a data-name. The format 


of relation tests is shown in Option 3. 


Option 3: 


( literal-1 
IF Rie ene Is [ NOT] 


< 
arithmetic expression-1 EQUAL TO 


LESS THAN 
GREATER THAN 


EQUALS 


literal-2 
data-name-~2 
arithmetic expression-2 
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RELATIVE VALUE TESTS. The relative value test is an alternate way 
of stating a comparison of the value zero with a formula, or with 
data-name. An teen or formula is POSITIVE only if its value is 
greater than zero. An item or formula is NEGATIVE only if its 
value is less than zero. The value zero is considered neither 
POSITIVE nor NEGATIVE. This form of comparison with zero is not 


considered a relational test. The format of relative value tests 


is as follows: 


Option 4: 


arithmetic expression 


data-name zene 
\ Is [NOT| POSITIVE 


NEGATIVE 


CLASS TESTS. The class test is used to determine whether the 


contents of the data-name is made up entirely of NUMERIC or ALPHA- 
BETIC DISPLAY characters. For example: 


"JOHN DOE" is ALPHABETIC [Pc x(8)] 
"R. JOHN DOE" is not ALPHABETIC [Pc x(11)] 
"37373" is NUMERIC [Pc 9(5)] 
"234" is NUMERIC [Pc 9(3)] 
"37452" is NUMERIC [Pc s9(5)] 
"685.57" is not NUMERIC [Pc x(6)] 


The format of the class test is as follows: 


Option 5: 


| ( NUMERTC ) | 


if data-name is [NUL] 


{ ALPHABETIC f | 


IF 


continued 


CONDITIONAL VARIABLE TESTS. A conditional variable test is one in 
which an item is tested to determine whether or not the value 
associated with a condition-name is present. The rules for com- 
paring a conditional variable with a conditional value are the same 
as those for relation tests. The format for a conditional variable 


test is: 


Option 6: 


Ir [NOT] condition-name 


Not Logic. 


The statement: 


IF A IS NOT EQUAL TO B OR C OR D, GO TO paragraph-name-1 
ELSE GO TO paragraph-name-2. 


a. Condition-1. If A is not equal to B, control will trans- 


fer immediately to paragraph-name-1, 


b. CGondition-2. If A equals B, a test of C for inequality 
is set up. If C is unequal, control transfers immediately 
to paragraph-name-1; but if C is also equal, a test of D 
for inequality is set up. If D is unequai, control trans- 
fers immediately to paragraph-name-1; but if D is also 
equal, program control transfers immediately to para- 


graph-name-2. 


c. Conclusion. The above explanation reflects that a test 
of field A versus the fields B OR C OR D for unequal 
status in all fields during one operation is an impossi- 
bility when using NOT/OR logic. The first data field 
reflecting inequality will cause a branch to be executed 


to paragraph-name-l. 
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In the above example, had AND logic been applied, the 


tests would have been accomplished in the ver 


manner. 
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MOVE. 


The function of this verb is to transfer data from one area of 
memory to one or more data areas (receiving fields). The data 
will be automatically edited or adjusted as to the applicable 
PICTURE and USAGE clauses. 


The construct of this verb is: 


Option 1: 


literal-1 
data-name-1 


MOVE { 


\ TO data-name-2 [data-name-3... | 


Option 2: 


CORR 


MOVE \ data-name-1 TO data-name-2 


{ CORR 
| CORRESPONDING 


The MOVE statement without the CORR or CORRESPONDING option may not 
be used to MOVE a group item if editing or conversion of elemen- 
tary items is desired. To do this, either the CORR or CORRESPON- 
DING option must be used, or each elementary item must be moved 


individually. CORR is an acceptable substitute for CORRESPONDING. 


If the CORR or CORRESPONDING option is used, selected sending fields 
are MOVEd to selected receiving fieids. Data-name-1 and data-name- 
2 must be group items. A pair of data items, one from data-name-1 
and one from data-name-2, correspond if the data items in both 

have the same name and the same qualification up to, but not in- 
cluding, data-name-1l and data-name-2. At least one of the data 
items of both data-name-1 and data-name-2 must be an elementary 
item. Neither data-name-1 nor data-name-2 may be data items with 


levels 66, 77, or 88. Each data item which is subordinate to 


eaa 


i 
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data-name-1 and data-name-2, and which contains a RENAMES clause, is 
ignored. Furthermore, a data item that is subordinate to data-name- 
1 and data-name-2 and contains a REDEFINES or OCCURS clause is ig- 
nored. However, data-name-1l and data-name~2 may have REDEFINES or 


OCCURS clauses or be subordinate to data items with these clauses. 


The CORR or CORRESPONDING option generates the following: 


a. Elementary to elementary. 
b. Elementary to group. 
c. Group to elementary MOVEs within the two record descrip- 


tions. 


Any MOVE in which the sending field and receiving items are elemen- 
tary items is an elementary MOVE. Every elementary item belongs to 
one of the following categories: alphabetic, numeric, alphanumeric, 
numeric edited, or alphanumeric edited. These categories are dis- 
cussed in PICTURE. Numeric literals belong to the numeric (4-bit) 
category, and non-numeric literals belong to the alphanumeric (byte) 
category. The following rules apply to an elementary MOVE between 


these categories: 


ae In a MOVE of ALPHABETIC information to numeric field, 


the results will be unpredictable. 


b. A numeric edited, alphanumeric edited, or alphabetic data 
item must net be MOVEd to a numeric or numeric edited 


data item. 


c. A numeric or numeric edited data item must not be MOVEd 


to an alphabetic item. 


d. A numeric item whose implicit decimal point is not imme- 
diately to the right of the least-significant digit must 
not be MOVEd to an alphanumeric or alphanumeric edited 


data item. 


e. All other elementary moves are legal and are performed 


according to the rules outlined below: 


1) An alphanumeric to alphanumeric elementary MOVE 


passes data constructed of bytes to a receiving 
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field constructed of bytes. 


When an alphanumeric edited, alphanumeric, or alpha- 
betic item is a receiving item, left justification 
occurs and any necessary space filling takes place 
to the right. If the length of the sending item is 
greater than the length of the receiving item, the 
right-most characters are truncated (see JUSTIFIED 


for the inverse procedure). 


When a numeric or numeric edited item is a receiving 
item, alignment by decimal point and any necessary 
zero filling takes place except where zeros are re- 
placed because of editing requirements. If the 
receiving item has no operational sign, the absolute 
value of the sending item is used. If the sending 
item has more digits to the left or right of the 
decimal point than the receiving item can contain, 
the excess digits are truncated. If the sending 
item contains non-numeric characters, the following 


actions occur: 


a) Zone bits will be stripped if the receiving 
field is COMP. 


b) Zone bits may be replaced with the numeric 


stick if the receiving field is DISPLAY. 


Any necessary conversion of data from one form of 
internal representation to another takes place during 
the MOVE, along with any specified editing in the 


receiving item. 


NOTE 
Alphabetic or alphanumeric fields which are 
word aligned and contain an even number of 
bytes in length may create more efficient 


object code than those not synchronized. 
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NOTE (cont) 
This is due to the fact that the compiler 
may generate the operation code for MOVE 
WORDS instead of the normal MOVE ALPHA- 
NUMERIC. As much as one-half of the 
normal operational time can be saved on 
selecting routines where the program loops 
through many iterations of data movement 


operations. 


Any MOVE in which one or both operands is a group item, regardless 
of USAGE, is treated exactly as if it were an alphanumeric to 
alphanumeric elementary MOVE. There will be no conversion of data 
from one form of internal representation to another unless one of 
the fields is an elementary COMPUTATIONAL item. Group COMPUTATION- 
AL receiving fields are treated as if they are alphanumerically de- 


clared. 
The following are examples of the MOVE statement: 


a. The following examples show truncation of digits in 


moving numeric information. 


Receiving 


Field : 
Picture 9999 9900 9009 990099 0099 99/99 
Value 1234 1234 1234 1234 1234 1234 
Receiving 

Field 1234 3400 3004 120034 0034 12/34 
Warning 

Message No Yes Yes No Yes No 


b. The following examples show alignment of decimal points 
in moving numeric data. The symbol V denotes the assumed 
decimal point given by item description PICTURE clause, 


but which is not physically present. 


MOVE 


continued 


Sending Field Receiving Field 
Before and After Before After 
123V45 0020V20 0123V45 
123V45 002V020 123V450 
123V45 _00202V0 00123V4 


ce. The following example shows results of MOVE ALL state- 
ments. The use of a figurative constant ZERO in a MOVE 
statement will result in the entire DISPLAY or COMPU- 
TATIONAL elementary receiving field being composed of 
zeros, with or without the use of the reserved word ALL. 
Therefore, MOVE ALL ZEROS, MOVE ZEROS, and MOVE ALL O 
are synonymous and will cause the DISPLAY or COMPUTATIONAL 
elementary receiving field to be composed of 8-bit or 


4~bit zeros respectively. 


Five Position Receiving Field After Execution 


Statement COMPUTATIONAL DISPLAY 
MOVE ALL 9 99999 FOF OFOF9OF9 
(or "9") 

MOVE ALL 57 57575 P5P7F5P7F5 
MOVE ALL 057 05705 POP 5F7FOF5 
MOVE ALL "ABC" * C1C2C3C1C2 
MOVE ALL ZEROS 00000 FOFOFOFOFO 
MOVE ALL O 00000 FOFOFOFOFO 


* Unpredictable 


Beer 


MULTIPLY 


MULTIPLY. 
The function of this verb is to multiply two operands and store 
the results in the last-named field (which must be a numeric 


data-name). 


The construct of this verb is: 


BY 


MULTIPLY fliteral-1 \ 


jf literal-2 
\ data-name-1 \ 


\ data-name-2 


[GIVING data-name-3] [ROUNDED] E SIZE ERROR any 


OTHERWISE 
statement Bises \ statement ]| 


Alli ruies specified under the ADD statement regarding the presence 
of editing symbols in operands, the ON STZE ERROR option, the 
ROUNDED option, the GIVING option, truncation, and the editing 
results apply to the MULTIPLY statement, except the maximum operand 


size is 99 digits for the sum of two operands. 


The data-names must be elementary item references. If GIVING is 
used, the data description of data-name-3 may contain editing 
symbols. In all other cases, the data-names used must refer to 


numeric items only. 


If the GIVING option is used, the result of the multiplication 
replaces the contents of data-name-3, otherwise, it replaces the 
contents of data-name-2. Tf GIVING is not used, iiterai-2 is not 


permitted, i.e., data-name-2 must appear. 
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NOTE. 
The function of this verb is to allow the programmer to write ex- 
planatory statements in his program which are to be produced on 


the source program listing for documentational clarity. 
The construct of this verb is: 


Option 1 - Paragraph NOTE: 


label. NOTE any comment. 


Option 2 - Paragraph NOTE: 


Any combination of the characters from the allowable character 


set may be included in the character string of a NOTE statement. 


If a NOTE sentence is the first sentence of a paragraph, the entire 
paragraph is considered to be commentary. Either Option 1 or 


Option 2 may be used as NOTE statements on a paragraph level. 


If a NOTE statement appears as other than the first sentence of a 


paragraph, only the sentence constitutes a commentary. The first 
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the word NOTE will cause the compiler to 


iew sentence commences with the word 


i Refer to page 7-3 of Section 7, CONTINUATION INDICATOR, for an ex- 


planation of notes (* or fp in column 7) appearing anywhere within 
E the source program, 
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OPEN. 
The function of this verb is to initiate the processing of both 
input and output files. The MCP performs checking or writing, or 


both, of labels and other input-output operations. 


The construct of this verb is: 


OPEN 


WITH LOCK [ ACCESS } 
INPUT file-name-1 REVERSED [file-name-2...]| 


WITH NO REWIND 


OUTPUT file-name-3 [WITH NO REWIND] [file-name-4 ...] | 


eo \ file-name-5 | won LOCK taconss] | 


[file-name-6...] 


[ O-I file-name-7 [ file-name-8 a) ] 


= 


File-names must not be those defined as being SORT files. 


At least one of the options must be specified before a file can be 


read. A statement of OPEN INPUT.......-OUTPUT.......-T-Ovcccccecser 


O-IT.....e.,.Can appear in one source language card. Continuation 


of source card lines is allowed. 


The I-O, INPUT-OUTPUT and O-I options pertain to disk storage files. 
The I-O and INPUT-OUTPUT options may be used by data communication 


remote devices. 


The OPEN statement must be executed prior to the first SEEK, READ, 
or WRITE statement for that file. 


A second OPEN statement for a file cannot be executed prior to the 
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execution of a CLOSE statement for that file. 


The OPEN statement does not obtain or release the first data record. 
A READ or WRITE statement must be executed to obtain or release, 


respectively, the first data record. 


When checking or writing the first label, the user's beginning 


label subroutine is executed if it is specified by a USE statement. 


The REVERSED and the NO REWIND options can only be used with SE- 
QUENTIAL, single reel, tape files. 


If the peripheral ASSIGNed to the file permits rewind action, the 
following rules apply: 


a. When neither the REVERSED nor the NO REWIND option is speci- 
fied, execution of the OPEN statement for the file will 
cause the file to be positioned ready to read the first 


data-record. 


b. When either the REVERSED or the NO REWIND option is speci- 
fied, execution of the OPEN statement does not cause the 
file to be positioned. When the REVERSED option is speci- 
fied, the file must be positioned at its physical end. When 
the NO REWIND option is specified, the file must be posi- 
tioned at its physical beginning. 


c. When the NO REWIND option is specified, it applies only to 


sequential, singie reei fiies stored on magnetic tape units. 


When the REVERSED option is specified, the subsequent READ state- 
ments for the file make the data-records available in reverse record 
order starting with the last record. Each record will be read into 
its record-area and will appear as if it had been read from a for- 


ward moving file. 


If an input file is designated with the OPTIONAL clause in the 
Fite-Gontrotl paragrandh of the ENVTRONMENT DTVTSTON,. the ohiect 
program causes an interrogation to the MCP for the presence or 


absence of a pertinent magnetic tape file. If this file is not 
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present, the first READ statement for this file causes the impera- 


tive statement in the AT END clause to be executed. 


The I-O or INPUT-OUTPUT option permits the OPENing of a disk file 


for input and/or output operations. This option demands the ex- 
istence of the file to be on the disk and cannot be used if the 

file is being initially created. That is, the file to be OPENed 
must be present in the MCP Disk Directory. 


When the I-00 or INPUT-OUTPUT option is used, the MCP immediately 
checks the MCP Disk Directory to see if the file-name is present. 
The system operator will be notified in its absence, and the file 
can then be loaded if it is available or the program can be DSed 
(Discontinued). If the decision is to load the file, the operator 
does so and then notifies the MCP to proceed with the program by 


a mix-index OK message. 


The O-I option is identical to OPEN I-O with the exception being 
that the file is assumed to be a new file to the Disk Directory. a 
The OPEN O-I option will shortcut the usual method of initially 
creating I-0O work files within a program, e.g., OPEN OUTPUT, 

write record(s), CLOSE WITH RELEASE, OPEN I-0, etc. The O-I op- 


tion does not, nor was it intended to, replace the OPEN I-O option, 
since the use of OPEN O-I assumes that a new file is to be created 


each time. 


When processing mass storage files for which the access mode is 
sequential, the OPEN statement supplies the initial address of the 


first record to be accessed. 


The contents of the data-names specified in the FILE-LIMIT clause 
of the File-Control paragraph (at the time the file is OPENed) is 
used for all checking operation while that file is OPEN. The FILE- 
LIMIT clause is dynamic only to this extent. 


When an OPEN OUTPUT statement is executed for a magnetic tape file, 


the MCP searches the assignment table for an available scratch tape, 
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writes the label as specified by the program, and executes any 
USE declaratives for the file. If no scratch tape is available, 

a message to the operator is typed and the program is suspended 
until the operator mounts one, or one becomes available due to the 


termination of a multiprocessing program. 


OPENing of subsequent reels of multi-reel tape files is handled 
automatically by the MCP and requires no special consideration 


from the programmer. 


OPEN WITH LOCK on a permanent disk file (contained in the Disk 
Directory) denies the OPENing of that file to all other operating 
programs in the Mix. If another program attempts to OPEN INPUT 
of a file already OPENed with LOCK, the MCP control message ** 
LOCKED FILE file-name program-name = mix-index will appear on the 
SPO. The systems operator may continue the operation of the pro- 
gram by performing the control message mix-index OK only after 


the program LOCKing the file has performed a CLOSE on it. 


OPEN WITH LOCK ACCESS on a permanent file (contained in the Disk 
Directory ) allows the subsequent OPENing of that file by other 
operating programs in the Mix, as iong as they only use the OPEN 


INPUT convention. 


PERFORM 


PERFORM. 


The function of this verb is to depart from the normal sequence 
of execution in order to execute one or more procedures, either 
a specified number of times or until a specified condition is 

satisfied. Following this departure, control is automatically 


returned to the normal sequence. 
‘The construct of this verb has four options which are: 


Option 1: 


THRU 
PERFORM procedure-name-1| | Trnoues \ procedure-name-2 | 


Option 2: 


THRU 


-name-2 | 
THROUGH \ procedure-name 


PERFORM procedure-name-1| { 


tae tee cae \ TIMES 


data-name-1 f 


Option 3: 


THRU 


TeSucy | Procedure-name-2 | 


PERFORM procedure-name-1| { 


UNTIL condition-1 
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Option 4: 


THRU 


PERFORM procedure-name-1 h amou 


\ procedure-name-2 | 


Fe eee index-name-2 
VARYING FROM data-name-2 BY 
ar oc data-name-L —— : ; —s 
numeric-literal-1 


Vee \ UNTIL condition-1l | arrer f 
= L 


BY 


{ data-name-6 ; 


index-name-¥4 
numeric-literal- 


FROM data-name-5 
numeric-literal-3 


index-name-5 
data-name-‘7 


index-name-6 ey ee 
data-name-8 BY pee iaC 
: : _— numeric-literal-6 
numeric-literal-5 


UNTIL condition-2 | | AFTER { \ FROM 


UNTIL condition-3 | 


PERFORM is the means by which subroutines are executed in COBOL. 


The subroutines may be executed once, or a number of times, as de- 
termined by a variety of controls. A given paragraph may be PER- 
FORMed by itself, in conjunction with another paragraph, control may 
pass through it in sequential operation, and it may be the object of 
a GO statement, all in the same program. The range of a PERFORM 
starts with the first executable statement of procedure-name-i and 
continues in logical sequence through the last executable statement 


of: 


a. THRU procedure-name-2, if specified, automatically sets up 


a return to the statement following the PERFORM statement. 


b. Procedure-name-l only, if procedure-name-Z 1s not speci- 
fied automatically sets up a return to the statement 


following the PERFORM statement. 
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c. The automatic return is implied as immediately following 


the last statement in a PERFORM range. 


Each procedure-name is the name of a section or a paragraph in 


the PROCEDURE DIVISION. 


Each data-name is a numeric elementary item described in the DATA 
DIVISION. <All literals must represent numeric items with no 


positions to the right of the assumed decimal point. 


There is no necessary relationship between procedure-name-1l and 
procedure-name-2 except that a consecutive sequence of operations 
is to be executed beginning at procedure-name-1 and ending with 
the execution of procedure-name-2. In particular, GO and PERFORM 
statements may only occur within procedure-name-l1 and before the 
end of procedure-name-2. If there are two or more direct paths to 
the return point in procedure-name-1, then procedure-name-2 may 

be the name of a paragraph consisting solely of the EXIT statement, 


to which all of the procedure-name-1 paths must lead. 


If the object program control passes to procedure-name-1 or pro- 
cedure-name-2 from a statement other than a PERFORM, the proce- 
dure(s) will be accomplished and control will fall through to the 
next sentence following the procedure(s). If procedure-name-2 con- 
sists of an EXIT, program control will pass to the next sentence 


following procedure-name-2. 


If a statement within procedure-name-1l or procedure-name-2 contains 
a nested PERFORM, object program control will pass to the procedure- 
name contained in the nested statement and the procedure will be 
accomplished. Program control will automatically return to the 
next sentence following the executed PERFORM statement. Nested 
PERFORM statements are allowed to any reasonable depth. Nesting 
depth is dictated by STACK size in the object program. Additional 
depth may be obtained by use of an MCP CORE card at object program 
execution time, or by the MEMORY SIZE clause, to give the object 
program additional memory to increase the STACK size. However, 

the procedure named must return to the statement following the 
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previously executed PERFORM and cannot contain a GO out of range of 


procedure-name-1 or procedure-name-2. 


A PERFORM statement appearing in an overlay section can have within 


its range only the following: 


a. Procedures within the fixed (non-overlayable) segment 


of the program. 


b. Procedures within the overlay segment containing the 


PERFORM. 


A PERFORM statement appearing within the fixed segment of the pro- 


gram can range unrestricted to any point in the program. 


Option 1 is the basic PERFORM statement. A procedure referred to 
by this type of PERFORM statement is executed once and then control 
passes to the statement following the PERFORM statement. 


Option 2 is the TIMES option and, when used, the procedures are 
performed the number of times specified by data-name-1 or integer-1l. 
Data-name-1l cannot be described as larger than 6 digits in length. 
The value of data-name-1 or integer-1 must be positive. Control is 
brane herned to the statement following the PERFORM statement. If 
the value is zero, control passes immediately to the statement fol- 
lowing the PERFORM sentence. Once the PERFORM statement has been 
initiated, any reference to or manipulation of data-name-1 wili not 


affect the number of times the procedures are executed. 


Option 3 is the UNTIL option. The specified procedures are per- 
formed until the condition specified by the UNTIL condition is RUE. 
At this time, control is transferred to the statement following the 
PERFORM statement. If the condition is TRUE at the time that the 
PERFORM statement is encountered, the specified procedure is not 


executed. 


Option 4 is the VARYING option. nis option is used wien it is de- 


sired to augment the value of one or more data-names or index-names 
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in an orderly fashion during the execution of a PERFORM statement. 
When index-names are used, the FROM and BY clauses have the same 


effect as in a SET statement. 


In option 4 where only one condition is required to control the num- 
ber of iterations that a procedure is to be PERFORMed, the following 


actions take place: 


a. Data-name-1l is set at the start of the PERFORM to a 
starting value as contained in data-name-2 (or numeric- 


literal-1). 


b. Condition-1 is compared for an EQUAL condition. If 


condition-1l is true, control passes to next statement. 
c. Procedure-name will be executed one time. 
d. Data-name-3 is added to the contents of data-name-1. 
e. Loop to step b above. 


The above cycle continues until an equal comparison occurs, at which 
point program control directly passes to the next sentence following 


the executed PERFORM statement. 


In option 4 where two conditions are required to control the number 
of iterations that a given procedure is to be PERFORMed, the fol- 


lowing actions occur: 


a. Data-name-1 and data-name-4 are set at the start of the 
PERFORM to starting values as contained in data-name-2 
(or numeric-literal-1) and data-name-5 (or numeric-lit- 


eral-3) respectively. 
b. Condition-1 is compared to data-name-1 and: 


1) If an equal condition occurs, control is passed to 
the next sentence following the executed PERFORM 


statement, or else: 
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2) Condition-2 is compared to data-name-4 and: 


a) If an equal condition occurs, data-name-4 is set 
to the value contained in data-name-5. Data-name- 
3 is added to the data-name-1l and loop to step b 


above, or else: 


b) Procedure-name will be executed one time, after 
which data-name-6 is added to data-name-4 and 


loop to step a above. 


The above cycle continues until an equal comparison occurs, at which 
point program control directly passes to the next sentence following 


the executed PERFORM statement. 


NOTE 
Data-name-3 and data-name-6 


cannot contain zeros. 


In option 4 where three conditions are required to control the num- 
ber of iterations that a given procedure is to be PERFORMed, the 
mechanism is the same as for two-conditional control except that 
data-name-7 goes through a complete cycle each time that data-name- 
6 is added to data-name-4, which in turn goes through a complete 


cycle each time that data-name-1 is varied. 


After the completion of Option 4, data-name-4 and data-name-7 con- 
tain their initial values, while data-name-1 contains a value which 
exceeds its last used setting by one increment or decrement unless 
condition-1 is TRUE when the PERFORM statement is entered, in which 
case data-name-1, data-name-4 and data-name-7 ali contain their 


initial values. 


Since the return control information is placed in the stack rather 
than directed through instruction address modification, a PERFORM 
statement executed within the range of another PERFORM is not re- 
stricted in the range of paragraph names it may include. The ex- 
amples shown on the following page are permitted and will execute 


correctly. 
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PERFORM a THRU m 


PERFORM f THRU j 


PERFORM a THRU m 


ITF condition THEN 
PERFORM a THRU m 
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READ. 


The function of this verb is twofold, namely: 


a. When processing sequential input files, a READ statement 
will cause the next sequential record to be moved from the 
input buffer area to the actual work area, thus making the 
record available to the program if the file has been de- 
clared BLOCKED, or, if an ALTERNATE AREA has been ASSIGNed. 
An input buffer area is not used where records are un- 
blocked or an ALTERNATE AREA has not been ASSIGNed, there- 
fore, all sequential records will be physically read into 
the work area of the program. Physical READs are performed 
as a function of the MCP. The READ statement permits the 
performance of a specified imperative statement when an 


end-of-file condition is detected by the MCP. 


b. For random file processing, the READ statement communicates 
with the MCP to explicitly cause the reading of a physical 
record from a disk file and also allows performance of a 
specified imperative statement if the contents of the 


associated ACTUAL KEY data item is found to be invalid. 


The construct of this verb is: 


- WITH LOCK [ ( AT END 
READ file-name RECORD (ee ae a INVALID KEY \ 


ELSE 


any imperative statement [4 OTE EENtSe \ any statement 1] 


The AT END of file clause is used only for non-disk files or for 
disk files being processed in the sequential access mode. NEXT- 


SENTENCE is implied if AT END is not explicitly stated. 
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If, during execution of a READ statement with AT END, the logical 


End-of-File is reached and an attempt is made to read that file, 
the statement specified in the AT END phrase is executed. After 
the execution of the imperative statement of the AT END phrase, 
a READ statement for that file must not be given without prior 


execution of a CLOSE statement and an OPEN statement for that file. 


The WITH LOCK option makes the current record (physical record) 
unavailable to other programs and is only applicable for Shared 
Disk MCP usage. 


The INTO and WITH LOCK options are mutually exclusive. 
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When the AT END clause is specified in a conditional sentence, the 
clause can be thought of as being preceded by an IF and that all 
exits within the sentence are controlled by using the rules per- 


taining to the matching of IF...ELSE pairs. For example: 


IF AAA = BBB THEN READ FILE-A, AT END GO TO WRAP-UP, 
ELSE GO TO PROCESS-THE-RECORD, ELSE STOP RUN. 


a. When AAA does not equal BBB, control will be passed 
to STOP RUN. 


be. When AAA equals BBB, FILE-A is read, end-of-file is 
tested and if the result is "TRUE" program control 
will be transferred to the WRAP-UP procedure, however, 
a result of "FALSE" will cause program control to be 


transferred to PROCESS-THE-RECORD. 


The INVALID KEY applies to files that are ASSIGNed to disk. The 


access of the file is controlled by the value contained in ACTUAL 
KEY. 


An AT END or INVALID KEY clause must be specified when reading a 
file described as containing FILE-LIMITS. 


The INTO option may only be used when the input file contains 
records of one type. The data-name must be the name of a WORKING- 


STORAGE area or output record area. 


An OPEN statement must be executed for a file prior to the exe- 


cution of the first READ statement for that file. 


When a file consists of more than one type of logical record, 
these records automatically share the same storage area and are 
equivalent to an implicit redefinition of the area. Only the in- 


formation that is present in the current record is available. 
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If the INTO option is specified, the current record is MOVEd from 
the input area to the area specified by data-name according to the 
rules for the MOVE statement without the CORRESPONDING option. If 
multiple Ol levels are declared in the file description, the size 


of the first O1 level is used. 


When the INTO option is used, the record being read is available 
in both the data area associated with data-name and the input 


record area. 


If a file described with the OPTIONAL clause is not present, the 
imperative statement in the AT END phrase is executed on the first 
READ. The standard End-of-File procedures are not performed. (See 
the OPEN and USE statements, and the FILE-CONTROL paragraph in the 
ENVIRONMENT DIVISION. ) 


If the end of a magnetic tape file is recognized during execution 


of a READ statement, the following operations are carried out: 


a. The standard ending reel label procedure and the user's 
ending reel label procedure, if specified by the USE 
statement, are carried out. The order of execution of 


these two procedures is specified by the USE statement. 
b. A tape swap is performed. 


c. The standard beginning reel label procedure and the 
user's beginning label procedure, if specified, are 
executed. The order of execution is again specified 


by the USE statement. 
d. The first data record on the new reel is made available. 


READ with INVALID KEY is used for disk files in the random access 
mode. The READ statement implicitly performs the functions of the 
SEEK statement, except for the function of the KEY CONVERSION op- 
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ACTUAL KEY data item is out of the range indicated by FILE LIMITS, 
the INVALID KEY phrase will be executed. 


For random disk files, the sensing of an INVALID KEY does not pre- 
clude further READs on that file nor need it be closed and reopened 


before doing so. 


If a READ parity error occurs, the MCP will pass the record back 
and forth under the read head until the record is successfully 
read, or until a specified amount of retry passes has been reached. 
If the parity error is unrecoverable, the MCP will branch to the 
USE... routine provided by the programmer. If a USE... routine is 
not found, the MCP will notify the systems operator to discontinue 
(Ds) or dump the contents of memory pertaining to the program and 
then discontinue (DP) the run when the TERM option of the MCP 
(terminate automatically) is "OFF". If the TERM option is "ON" 
during the discovery of an unrecoverable magnetic tape parity 
error, a program which doesn't contain a USE... routine will be 
automatically terminated and all tapes re-wound, otherwise, the 
tapes will be setting one record beyond the parity when NO ALTER- 


NATE AREAS are explicitly or implicitly specified for the file. 


Object code will be generated, automatically at compile time, within 
every program declaring blocked logical records, which will cause 
de-blocking of physical records under control of the object program 
itself. An exception to this procedure of unblocking can be 
achieved by declaring "MCPB" in the dollar sign (¢) card (see 
Section 8), however, speed will be sabe iced for a small savings 


in core used by the unblocking routine for the specific file. 


Dra? 


RELEASE 


The function of this verb is to cause records to be transferred to 


the initial phase of a SORT operation. 


The construct of this verb is: 


RELEASE record-name [ FROM data-name | 


A RELEASE statement may only be used within the range of an input 


procedure associated with a SORT statement. 


In the FROM option, the data-name must refer to a WORKING-STORAGE, 


or an input-record area. 


Record-name and data-name must name different memory areas when 


specified. 


The RELEASE statement causes the contents of record-name to be 
released to the initial phase of a sort. Record-name will be trans- 
ferred to the specified sort-file (SD) and becomes controlled by 


the sort operation. 


In the FROM option, the contents of data-name are MOVEd to record- 
name, then the contents of record-name are released to the initial 
phase of a sort. Moving takes place according to the rules speci- 
fied for the MOVE statement without the CORRESPONDING option. The 
record-name area will not contain intelligible data after the MOVE, 


however, the information in data-name is still available. 


After the RELEASE has been executed, record-name is no longer avail- 
able. When control passes from the input procedure, the SD file 
consists of all those records that were piaced in it by the execu- 


tion of RELEASE staveiiicsivs. 
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RETURN. 
The function of this verb is to obtain sorted records from the final 


phase of a SORT operation. 


The construct of this verb is: 


RETURN file-name RECORD [INTO data-name] 


[AT END any statement] 


File-name must be a sort file with a Sort File Description (SD) 


entry in the DATA DIVISION. 


A RETURN statement may only be used within the range of an output 


procedure associated with a SORT statement for file-name. 


The INTO option may only be used when the input file contains just 
one type of record. The data-name specified must be the name of 


a WORKING-STORAGE, or an output-record area. 


Records automatically share the same area when a file consists of 
more than one type record and only the information pertinent to the 


current record is available. 


The execution of the RETURN statement causes the next record, in 
the order specified by the Keys listed in the SORT statement, to 
be made available for processing in the record area associated with 


the SORT file (SD). 


Moving is performed according to the rules specified for the MOVE 


statement without the CORRESPONDING option. 


When the INTO option is specified, the sorted data is available 
in toth the input-record area and the data-area specified by data- 


name. 
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put procedure after the AT END clause has been executed. 
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SEARCH. 
The function of this verb is to cause a search of a table to locate 
a table-element that satisfies a specific condition and, in turn, 


to adjust the associated index-name to indicate that table-element. 
The construct of this verb has two options which are: 


Option 1: 


SEARCH data-name-1 VARYING + ce name 
Ee Jeni data-name-2 


| AT END imperative statement-1 | 


imperative statement-2 | 


WHEN condition-1 | NEXT SENTENCE s 


WHEN condition-2 { imperative statement-3 \ ate | 


NEXT SENTENCE 


Option 2: 


SEARCH ALL data-name-3 [AT END imperative statement-4] 


WHEN condition-3 1 


imperative statement-5 
NEXT SENTENCE 


Data-name-~1 and data-name-3 may not be subscripted or indexed, but 
their descriptions must contain an OCCURS clause and an INDEXED 


BY option. 


When Option 2 is specified, the description of data-name-3 may 
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optionally contain the ASCENDING/DESCENDING KEY clause. 


When using the VARYING option, data-name-2 must be described as 
USAGE IS INDEX, or as the name of a numeric elementary item des- 
cribed without any positions to the right of the assumed decimal 
point. Data-name-2 will be incremented at the same time as the occ- 
urrence number ( and by the same amount) represented by the index- 


name associated with data-name-l. 


prised of any conditional as described by the IF verb. 


When using Option 2, condition-3 may consist of a relational con-~ 
dition incorporating the relation EQUAL, or a condition-name con- 
dition where the VALUE clause that describes the condition-name 
contains only a single literal. Condition-3 may be a compound 
condition formed from simple conditions of the type just mentioned, 


with AND being the only acceptable connective. 


When using Option 2, any data-name that appears in the KEY option 
of data-name-3 may appear as the subject or object of a test, Or 
be the name of the conditional variable with which the tested con- 


dition-name is associated. 


When using Option 1, a serial type search operation takes place, 
starting with the current index setting. The search is immediately 
terminated if, at the start of execution of the statement, the 
index-name associated with data-name-1 contains a value that corres- 
ponds to an occurrence number that is greater than the highest per- 
missable occurrence number for data-name-1l. Then, if the AT END 
option is specified, imperative statement-1 is executed; if AT END 


is not specified, control passes to the NEXT SENTENCE. 


When using Option 1, if at the start of execution of the SEARCH 
statement, the index-name associated with data-name-1 contains a 
value that corresponds to an occurrence number that is not greater 


than the highest permissible occurrence number for data-name-1, the 
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SEARCH statement will begin evaluating the conditions in the order 
that they are written, making use of index settings wherever speci- 
fied, to determine the occurrences of those items to be tested. 

If none of the conditions are satisfied, the index-name for data- 
name-l is incremented to obtain a reference to the next occurrence. 
The process is repeated using the new index-name setting for data- 
name-1l which corresponds to a table element which exceeds the last 
setting by one more occurrence until such time as the highest per- 
missible occurrence number is exceeded, in which case the SEARCH 


terminates as indicated in the previous paragraph. 


When using Option 1, if one of the conditions is satisfied upon 
its evaluation, the SEARCH terminates immediately and the impera- 
tive statement associated with that condition is executed; the 
index-name remains set at the occurrence which caused the condi- 


tion to be satisfied. 


In Option 1 and 2, if the specified imperative statements do not 
terminate with a GO statement then program control will pass to 


the next sentence after the execution of the imperative statement. 


In the VARYING option, if index-name-1 appears in the INDEXED BY 
option of data~name-1, then that index-name will be used for the 
SEARCH, otherwise, the first index-name given in the INDEXED BY 
option of data-name-1 will be used. If index-name-1 appears in 

the INDEXED BY option of another table entry, the occurrence number 
represented by index-name-1l is incremented by the same amount as, 
and at the same time as, the occurrence number represented by the 


index-name associated with data-name-1 is incremented. 


In Option 2, the initial setting of the index-name for data-name-}3 


is ignored, the effect being the same as if it were SET to 1. 


In Options 1 and 2, if data-name-1 and data-name-3 is an item in a 
group, or a hierarchy of groups, whose description contains an 
OCCURS clause, then each of these groups must also have an index- 


name associated with it. The settings of these index-names are used 
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i continued 
throughout the execution of the SEARCH statement to refer to data- 
names-1 and 3, or items within its structure. These index settings 


are not modified by the 
stated as index-name-1) 


data-names-1 and 3 (and 


execution of the SEARCH statement (unless 
and only the index-name associated with 


data-name-2 or index-name-1) is incremented 


by the SEARCH. Figure 5-9 provides an example of SEARCH operation 


as related to Option l. 
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AT END* 


INDEX SET: 
HIGHEST PERMISSIBLE 
OCCURRENCE NUMBER 


GREATER THAN ACCOMPLISH 
IMPERATIVE 
STATEMENT-1 


CHECK 
CONDITION-1 


TRUE ACCOMPLISH 
IMPERATIVE see ** 


STATEMENT- 2 


CHECK 


TRUE ACCOMPLISH 
CONDITION-2* 


IMPERATIVE 
STATEMENT-~ 3* 


u 


INCREMENT INDEX- 
NAME FOR DATA- 
NAME-1 OR INDEX- 
NAME IF APPLICABLE 


INCREMENT INDEX- 
NAME (FOR A DIFF- 
ERENT TABLE) OR 
DATA-NAME- 2* 


Figure 5-9. Example of SEARCH Operation 
Relating to Option 1 


These operations are only included when called for in the SEARCH 
statement. 


* 


** Fach of the control transfers is to NEXT SENTENCE unless the im- 
perative statement ends with a GO statement. 
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SEEK. 
The function of this verb is to initiate the accessing of a disk 


file record for subsequent reading and/or writing. 


The construct of this verb is: 


SEEK file-name RECORD [WITH KEY CONVERSION] [ LOCK] 


The specification of the KEY CONVERSION ciause indicates that the 
user provided USE FOR KEY CONVERSION section in the DECLARATIVE 
SECTION is to be executed prior to the execution of the SEEK state- 
ment. If there are no DECLARATIVES for KEY CONVERSION in a SEEK 
statement, then the KEY CONVERSION clause will be ignored. 


A SEEK statement pertains only to disk storage files in the random 
access mode and may be executed prior to the execution of each READ 
and WRITE statement. Use of the LOCK clause makes the record un- 
available to other programs (shared disk MCP only). 


The SEEK statement uses the contents of the data-name in the ACTUAL 
KEY clause for the location of the record to be accessed. At the 
time of execution, the determination is made as to the validity of 
the contents of the ACTUAL KEY data item for the particular disk 
storage file. If the key is invalid, the imperative statement in 
the INVALID KEY clause of the next executed READ or WRITE statement 


for the associated file is executed. 


Two SEEK statements for a disk storage file may logically follow 
each other. Any validity check associated with the first SEEK state- 
ment is negated by the execution of a second implicit or implied 


SEEK statement. 


An implied SEEK is executed by the MCP whomever an 


is missing for the specified record. An implied SEEK never executes 


any USE KEY CONVERSION Declaratives. 
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If a READ/WRITE statement for a file ASSIGNed to DISK is executed, 
but an explicit SEEK has not been executed since the last previous 
READ or WRITE for the file, then the implied SEEK statement is 
executed as the first step of the READ/WRITE statement. 


An explicit alteration of ACTUAL KEY after the execution of an ex- 
plicit SEEK has been performed, but prior to a READ/WRITE, will 
cause the initiation of an implied SEEK of the initial record in 


the sequence. For example, 


a. If ACTUAL KEY is 10, then 
b. READ record 10, then 

c. MOVE 50 to ACTUAL KEY, then 
d. WRITE record 50. 


An implied SEEK of record 50 will be performed between actions c. 


and d. above. 
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SET. 
The function of this verb is to estabiish reference points 
table handing operations by setting index-name values associated 


with table elements. 
The construct of this verb has two options which are: 


Option 1: 


index-name-1 index-name-2 
data-name-1 data-name-2 aa 


index-name-3 
data-name-3 


literal-1 


Option 2: 


index-name-4 [index-name-5 ...| 


UP BY data-name-4 
literal-2 


All data-items must be either index-data-names or numeric 
elementary items described without any positions to the right of 
the assumed decimal point, except that data-name-4 must not be an 
index-data-name. When a literal is used, it must be a positive 
integer. Index-names are considered related to a given table and 


are defined by being specified in the INDEXED BY clause. 


An index-data-name cannot be SET...TO... a literal or to a data- 


name. 


5-110 


SET 


continued 


A data-name cannot be SET...TO... an index-data-name, a literal or 


another data-name. <A data-name can only be SET to an index-name. 
Literals cannot be SET...TO anything. 


The SET verb appears somewhat similar to the MOVE but has a major 
difference in that the receiving field appears as the first op- 


erand(s) in the statement. For example: 
SET A TO B 


The above statement causes the contents of A to change to the value 
contained in B. Series statements may result in more efficient ob- 


ject code than separate statements. For example: 
SET A, C, D, E, F TO B 


Depending on the operands in a SET statement, code generated will 
vary from a single MVN through a series of MVN, MUL and DIV in- 
structions. Because of this, care must be used in determining 
what type of receiving operand is going to be SET to what type of 
sending operand, since this is the primary step in calculating the 


location within the row. For example: 


SET INDEX-DATA-NAME-A TO INDEX-A 
SET INDEX-B TO INDEX-DATA-NAME-A 


Both of the above statements are, by COBOL definition, plain MOVEs 
and unless the two indexes refer to rows of exactly the same size, 
will probably not result in an address which the programmer has 
perceived. If instead, the statement had been written: SET INDEX- 
B TO INDEX-A, the necessary MOVE, DIVIDE and MULTIPLY instructions 
would be generated to reduce the "sending" index to a relative 
occurrence (subscript) and then to expand it to the receiving add- 


ress. 
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SORT. 

The function of this verb is to sort a magnetic tape or disk input 
file of records by transferring such data into a disk sort-file 
(work file) and sorting those records on a set of specified keys. 
The final phase of the sort operation makes each record available 
from the sort-file, in sorted order, to an output procedure or toa 


| magnetic tape or disk output file. 


The construct of this verb is: 


SORT file-name-1 


PURGE 
RUN ON ERROR 


END 


ON { DESCENDING 


i -1 ares ea 2s ee 
ASCENDING \ KEY data-name [data name | 


on { DESCENDING 
ASCENDING 


N 


THRU 


ae 
THROUGH \ section-name- 2| 


INPUT PROCEDURE IS section-name-1 FE 


= 


| 
\ KEY data-name-3 [data-name-4...] | | 
| i 
| 


LOCK 
USING file-name-2 PURGE 


RELEASE ) | ) 


THRU 


OUTPUT PROCEDURE IS section-name-3 i THROUGH 


GIVING fite-name-3 [{ZOCK | 


; Sere = eo _ oe = Rae eee eee! 


File-name-1 must be described in a Sort File Description (SD) entry 


\ sec tioncname- 


: 
| 
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File Description (FD) entry. 


5-112 


SORT 


continued 


Section-name-1 specifies the name of the input procedure to be 
used before passing each record to the sort-file, while section- 
name-3 specifies the output procedure to be used to obtain each 


sorted record from the sort-file. 


Each data-name must represent data-items described in records 
associated with file-name-1. Data-names following the word KEY 

t 
are listed from left to right in the order of decreasing signifi- 


cance without regard as to their division into optional KEY clauses. 


A maximum of 40 KEYs are allowed in each SORT statement and each 
KEY may be comprised of up to 99 digits or characters in length, 
except for signed KEYs, which may be comprised of up to 50 charac- 
ters. The total accumulated size of KEYs cannot exceed 3,960. 


characters or digits. 


The PROCEDURE DIVISION of a source program may contain more than 
one SORT statement appearing anywhere in the program, except in 
the DECLARATIVES portion or in the input/output procedures associ- 


ated with a sort statement. 


The input procedure must consist of one or more sections that are 
written consecutively and which do not form a part of an output 
procedure. The input procedure must include at least one RELEASE 
statement in order to transfer records to the sort-file after the 
object program has accomplished the required input data manipula- 
tion specified in the procedure. Input procedures can select, 
create and/or modify records, one at a time, as specified by the 


programmer. 


There are three restrictions placed on procedural statements within 


an input or output procedure: 
a. The procedure must not contain any SORT statements. 


b. The input or output procedures must not contain any 
transfers of program control outside the range of the 


procedure; ALTER, GO and PERFORM statements within the 
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c.- The remainder of the PROCEDURE DIVISION must not contain 
any transfers of program control to points within the 
input or output procedure; ALTER, GO, and PERFORM state- 
ments in the remainder of the PROCEDURE DIVISION must not 
refer to procedure-names within the range of the input 


or output procedure. 


The output procedure must consist of one or more sections that are 
written consecutively and which do not form a part of an input 
procedure. The output procedure must include at least one RETURN 
statement in order to make each sorted record available for pro- 
cessing after the file has been sorted and the object program has 
accomplished the required output data manipulation specified in 
the procedure. Output procedures can select, create and/or modify 
records, one at a time, as they are being returned from the sort- 


file. 


When the ASCENDING clause is specified, the sorted sequence of the 
affected records is from the lowest to the highest value according 


to the collating sequence of the B 2500/B 3500, per specified KEY. 


When the DESCENDING clause is specified, the sorted sequence of 

the affected records is from the highest to the lowest value accord- 
ing to the collating sequence of the B 2500/B 3500, per specified 
KEY. 


The SD record description of the sort-file must contain fully de- 
fined data-name KEY items in the relative positions of the record 
as applicable. A rule to follow when using these KEY items is that 
when a KEY item appears in more than one type of record, the data- 
names must be relatively equivalent in each record and may not con- 


tain, or be subordinate to, entries containing an OCCURS clause. 
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When an input procedure is specified, object program control will be 
passed to that procedure automatically as an implicit function of 
encountering the generated SORT verb object code compiled into the 
program. The compiler will insert a return-to-the-sort mechanism 

at the end of the last section in the input procedure and when pro- 
gram control passes the last statement of the input procedure, the 
records that have been RELEASED to file-name-1 commence being 


sorted. 


If the USING option is specified, all records residing in file-name- 
2 will be automatically transferred to file-name-1 upon encountering 
the generated SORT verb object code. At the time of execution of 
the SORT statement, file-name-2 must not be OPEN. The SORT state- 
ment automatically performs the function necessary to OPEN, READ, 
USE and CLOSE file-name-2. If file-name-2 is a disk file, it must 
be in the Disk Directory before the SORT Intrinsic is called. 


When an output procedure is specified, object program control will 
be passed to that procedure automatically as an implicit function 
when all records have become sorted. The compiler will insert a 
return-to-the-object program mechanism at the end of the last sec- 
tion in the output procedure and when program control passes the 
last statement of the output procedure, the object program will ex- 


ecute the next statement following the pertinent SORT statement. 


If the GIVING option is specified, all sorted records residing in 
file-name-1l are automatically transferred to the OUTPUT file as 
specified in file-name-3. At the time of execution of the sort 
statement, file-name-3 must not be OPEN. File-name-3 will be auto- 
matically OPENed before the sorted records are transferred from the 
sort-file and in turn, will be automatically CLOSEd after the last 


record in the sort-file has been transferred. 


The ON ERROR option is provided to allow programmers some control 
over irrecoverable parity errors when INPUT/OUTPUT PROCEDURES are 
not present in a program. PURGE will cause all records in a block 
containing an irrecoverable parity error to be dropped and proces- 


sing will be continued after a SPO message giving the relative 
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position in the file of the bad block has been printed. This option 
is always assumed if no other has been defined. RUN will cause the 
bad block to be used by the program and will provide the same SPO 
message as defined for PURGE. END will cause the usual DS or DP 


SPO message. 


The PURGE, LOCK, and RELEASE options may be used to specify the type 
of file close on file-name-2 and file-name-3 (see CLOSE, page 5-33). 
The options only apply to the USING/GIVING options. 


Example: 


SORT file-name-1 ASCENDING KEY data-name-1 
USING file-name-3 PURGE 
GIVING file-name-3 LOCK. 


Beginning and ending label USE procedures are provided as follows 


when INPUT/OUTPUT PROCEDURES are present in the SORT statement: 


a. OPEN INPUT file-name. 
USE... (The programmer's USE procedure will be invoked. ) 


b. OPEN OUTPUT file-name. 
USE... (The programmer's USE procedure will be invoked. } 


c. CLOSE input-file-name. 
USE... (The programmer's USE procedure will be invoked, 
however, the contents of the ending input label will 


not be available to the USE procedure. ) 


d. CLOSE output-file-name. 
USE... (The programmer's USE procedure will be invoked; 
however, the ending label will have been written prior 


to executing the USE procedure. ) 


NOTE 
The above actions provide USE on 


label facilities at beginning and 


reels of multi-reel files. 
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STOP. 
The function of this verb is to halt the object program tempo- 


rarily or to terminate execution. 


The construct of this verb is: 


RUN 
LOE 1 literal \ 


If the word RUN is used, then all files which remain OPEN will be 
CLOSED automatically. Files ASSIGNED to DISK will be CLOSED WITH 
PURGE and all others will be CLOSED WITH RELEASE. All storage 

areas for the object program are returned to the MCP and the job i 


is then removed from the MCP Mix. 


The STOP RUN is not used for temporary stops within a program. 
STOP RUN must be the last statement of the program execution 


sequence. 


If the literal option is used, the literal will be DISPLAYed on the | 
message printer and the program will be suspended. When the oper- 
ator enters the MCP continuation message mix-index AX, program 
execution resumes with the next sequential operation. This option 

is normally used for operational halts to cause the system's opera- 


tor to physically accomplish an external action. 


If a STOP statement with the RUN option appears in an imperative 
statement, then it must appear as the only statement or last 


statement in the imperative statement. 


5-117 


SUBTRACT 


SUBTRACT. 
The function of this verb is to subtract one, or the sum of two 
or more, numeric data items from another item, and set the value 


of an item equal to the result(s). 
The construct of this verb has three options which are: 


Option 1: 


| | | 


literal-1 literal-2 
over ee eee \ eer i | —_— 
data-name-m [ ROUNDED] | data-namo-n [ ROUNDED] ah 


| on SIZE ERROR any statement [ { ee \ seatenont | | 


Option 2: 


literal-1 fliteral-2 
sere ee \ fee sf se | EROM 
i 
fj literal-m | 
Pant seaancan GIVING data-name-n [ROUNDED] 


os SIZE ERROR any statement Ei SrHERNISE \ statement | 


SUBTRACT 


continued 


Option 3: 


SUBTRACT 


{ pone \ data-name-1 FROM data-name-2 


CORRESPONDING f 


[ ROUNDED | | ox SIZE ERROR any statement [ { 


statement | | 


OTHERWISE 
ELSE 


In Options 1 and 2, the data-names used must refer only to ele- 
mentary numeric items. If Option 2 is used, the data-description 
of data-name-n may contain editing symbols, except when data-name-n 


also appears to the left of GIVING. 


All rules specified under the ADD statement with respect to the 
operand size, presence of editing symbols in operands, the ON 

SIZE ERROR option, the ROUNDED option, the GIVING option, trunca- 
tion, the editing of results, the handling of intermediate results, 


and the CORR or CORRESPONDING option apply to the SUBTRACT state- 


ment. 


When the GIVING option is not used, a literal may not be specified 


as the minuend. 


When dealing with multiple subtrahends, the effect of the sub- 
traction will be as if the subtrahends were first summed, and then 


the sum subtracted from the minuends. 
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TRACE. 


The function 


of this verb is to create documentation of all nor- 
mal and/or control mode processing events and to output this data 


on a line printer. 


The construct of this verb is: 


. 


a a ye 


| 
E 
Q 
ies} 
a me 


1 
2 
| 3 
20 


When a TRACE statement is encountered during object program execu- 
tion, one of the following actions will take place at that point 


in the program: 
a. The O option wiil turn the TRACE off. 


b. The 1 option will cause a TRACE of all normal mode in- 
structions until such time as any of the other options 


are encountered. 


c. The 2 option will cause a TRACE of all control mode in- 
structions until such time as any of the other options 


are encountered. 


d. The 3 option will cause a TRACE of all control and nor- 
mal mode instructions until such time as any of the other 


options are encountered. 


e. The 20 option will cause a memory dump to be taken of lo- 
cations base relative to the program's memory assignment. 


Processing will continue after the memory "snap-shot." 


If TRACE is turned ON during multiprocessing, all processing will 


be traced according to the selected option. Output will go to a 
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printer regardless of its MCP job assignment to a specific program 


in the Mix. 


The following is an example of TRACE output: 


2422 |b 


10 


11 
12 


13 


15036 
15044 
15062 
16024 
10000 


3 4 2 § Z 8 210 11 12 i3 
GEQ 16900 < 

MVN 0705 10004 is 12010 2s < O +12345 
OFL 16024 < 

BCT 0354 < 

MVA 0202 25 AL 10000 A > 25 


Explanation 
Normal State = N, Control State = blank. 


Address of Instruction in Memory. 
Operation Code. The number of an invalid Operation Code. 
AF-BF Field. 
A-Address,. 
AI-AC Field: 
AI-1,2,3 = Index Register. 
AC-S = Signed Numeric Data. 
A = Alphanumeric Data. 
I = Indirect Address. 
Blank = Unsigned Numeric Data. 
For literal types of data in the A-Address Field, the 
following descriptions appear in the combined AI-AC 
Fields: 
AL = Alphanumeric Literal. 
NL = Numeric Literal. 
SL = Signed Literal. 
FL = Floating Point Literal. 
B-Address. 
BI-BC Field: 
BI-1,2,3 = Index Register. 
BC-S = Signed Numeric Data. 
A = Alphanumeric Data. 
I = Indirect Address. 
Blank = Unsigned Numeric Data. 
C-Address. 
CI-CC Field: 
CI-1,2,3 = Index Register. 
CC-S = Signed Numeric Data. 
A Alphanumeric Data. 
I = Indirect Address. 
Blank = Unsigned Numeric Data. 


Status of Compare Toggle. 
Status of Overflow Toggle: 
Blank = No Overflow Condition. 
O = Overflow Condition. 
Contents of Result Field in memory to a maximum 
of 68 characters. 
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The Result Field in memory is defined for the various operators 


below: 
OP _MNE FIELD OP MNE FIELD OP MNE FIELD OP MNE FIELD 
01 INC B 13 MVC B 42 AND c 91 SRD IX1 (MCP) 
02 ADD c 14 ‘MVR B 43 ORR c 92 RAD A-SHOW 6 
03 DEC B 15 TRN c 4h NOT c 94 IIO A-SHOW 18 
04 SUB c 16 SDE B 45 CPA B 95 RDT A-SHOW 6 
05 MPY Cc 17 SDU B 46 CPN B 96 RCT A-SHOW 6 
06 DIV c 18 SZE B 49 EDT c 97 STT A-~SHOW 6 
09 MVL c 19 szU B 80 FAD Cc 2 
10 MVA- soi 31 NTR STK [1x3] 81 FsU Cc eee ie rn 
11 MVN B 40 B2T A 82 FMP c wield 
12 MVW B 41 BOT A 83 .FDV Cc 7 


Numbers higher than nine in a 4-bit configuration are called 


UNDIGITS and will be represented on the TRACE and memory dump as: 


Binary Printed 
Number Character 

10 A 

11 B 

12 Cc 

13 D 

14 E 

15 F 


The Memory Dump routine for TRACE 20 prints a starting location of 
the first of 100 digits/letters per line for as many 
encompass the entire program while resident in memory, plus its 
working storage and the area used for segmentation. Ti:e output 
data wiil be represented as per the EBCDIC Code Reference Table 
in appendix C of this manual. The following example of a memory 


dump reflects the technique utilized: 


0900 E2C5C540C8 D6E640C9E3 4OE6D6D9D2 E26F401234 56789----- ---------- 
SEE H Ow IT WORK S$? 1234 56789 

1000 FOFIF2F3F4 F5F6F7F8F9 FAFBFCFDFE FF-------- ----------  ---------- 
01234 56789 1011121314 15 

2100 DODID2ZD3D4 D5D6D7D8D9 ----------  ----------  ---- nnn -- + -------- 
Oak RAT RO 

2200 FIF2DOF9V8 D9--------  -------e--  - ee e-- eee wee een +--+ 
1 2NQR8 Q 
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UNLOCK. 


The function of this verb is to make a shared disk file record 


available to other programs. 


The construct of this verb is: 


UNLOCK record-name 


This statement does not WRITE a record; it only makes the record 


available. 
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USE. 

The function of this verb is to specify procedures for any input / 
output error and/or label handling which are in addition to the 
standard procedures supplied by the MCP, to calculate the ACTUAL 
KEY for files assigned to DISK, and to accomplish various user re- 


quired actions when a 12 punch (overflow) in the printer carri- 


age control tape is encountered, and for Shared Disk stalemate 

conditions. 

The construct of this verb has four options which are: | 
Option 1: 


file-name.,. 
INPUT 
OUTPUT 

USE AFTER STANDARD ERROR PROCEDURE ON INPUT-OUTPUT 
T-0 
O-T 


STANDARD | SneENN \ 


BEGINNING 


file-name... 
PROCEDURE ON IN PUT - 
OUTPUT 


Option 3: 


AT END OF PAGE 
FOR KEY CONVERSION 


\ ON file-name-1 [ file-name-2...]. 


Revised 9/28/70 
by PCN 1033099-004 5-123 


USE 


continued 


Option 4: 


USE ON STALEMATE ON file-name-3. 


A USE statement, when present, must immediately follow a section 
header in the DECLARATIVE portion of the PROCEDURE DIVISION and must 
be followed by a period followed by a space. The remainder of the 
section must consist of one or more procedurai paragraphs that de- 


fine the procedures to be used. 


If the file-name option is used as part of Option 2, the File Des- 
cription entry for the file-name must not specify a LABEL RECORDS 
ARE OMITTED clause. 


A USE statement specified for input and/or output files associated 
with the SORT verb will not be affected when executing the SORT 
unless an INPUT and/or OUTPUT PROCEDURE has been included in the 


program. 


The USE statement itself is never executed rather, it defines the 


conditions calling for the execution of the USE procedures. 


Tf neither REEL nor FILE is included in Option 2. the designated 
procedures are executed for both REEL and FILE labels. The REEL 


option is not applicable to mass storage files. 


Within a given format, a file-name must not be referred to implicit- 


ly or explicitly in more than one USE statement. 
USE procedures will be executed by the MCP: 


a. After completing the standard 1/0 error retry routine 
(this applies only to option 1) the record in error has 


been read, thus another READ cannot appear in the USE 


sion since the MOP 3s verfermine the 


aan P ~ - a maantann hannwa)8En 
Bat OCeaee GO vas save 4H Pea Va sig van 


Wee Ve vee MY 


of a previous READ which has been completed. Upon 
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completion of the USE procedure, control is returned to 
the statement following the READ which detected the error 
condition. In the case of blocked or unblocked magnetic 
tape input, the tape will be sitting ready to read the 
next record as soon as the Option 1 procedure is com- 
pleted. For example, if the user wishes to print the 
records which cannot be read because of an unrecoverable 
parity error, a procedure may be included as illustrated 


on page G-1, appendix G. 


The USE AFTER STANDARD BEGINNING clause designates that 

the procedure following the clause must be called upon 

to check data on input magnetic tape beginning-file-labels, 
or to insert data as an output magnetic tape beginning- 
file-label before it is written. For example, if the user 
wishes to change fieids within the BURROUGHS STANDARD LABEL 
and wants to add new fields to the Label Record, he may do 
so by including a procedure similar to that illustrated on 


page G-2, appendix G. 


When the USE BEFORE STANDARD ENDING clause designates that 
a following procedure must be called upon to check user 
created data contained on input magnetic tape ending file 
labels or to insert data onto the user's portion of an out- 


put magnetic tape ending file label before it is written. 


NOTE 
USE AFTER STANDARD ENDING and 
USE BEFORE STANDARD BEGINNING 
are both illegal entries in 


B 2500/B 3500 COBOL. 


After a physical 12 punch is sensed on the printer's 
carriage control tape for the USE AT END OF PAGE state- 


ment. 


Prior to any SEEK WITH KEY CONVERSION statement on 
files named in the USE FOR KEY CONVERSION statement. 
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References to common label items need not be qualified by a file- 
name within a USE statement. <A common label item is defined as 

being an elementary data item that appears in every magnetic tape 
beginning and/or ending file-label record, but does not appear in 


any data record of the program. 


A common label item must have the same name, description, and rel- 
ative position in every magnetic tape file-label record and may 


only be referenced while in a USE...LABEL PROCEDURE for that file. 


If the INPUT or OUTPUT option is specified, the USE...LABEL PROCE- 


DUREs do not apply when files are described as having LABEL RECORDS 
OMITTED. 


There must not be any reference to non-declarative procedures within 
a USE procedure. Conversely, in the non-declarative portion there 
must be no reference to procedure-names that appear in the declara- 
tive portion, except that a PERFORM statement may refer to a USE 
declarative, or to the procedures associated with such USE declara- 


tives. 
Option 2 is not applicable to disk files. 


The USE AT END OF PAGE procedure in option 3 allows the object pro- 
gram to automatically branch to a central user routine at the time 
that a paper overflow condition on a line printer is sensed by the 
physical reading of a 12 punch in the carriage control tape. If two 
line printers are being used in the object program, both may use the 


same procedure where the actions to be fulfilled are identical. 
Option 4 applies only to Shared Disk. 


When shared disk is used, and two processors are accessing the same 
file, one processor may try to read a record which was locked by the 
second processor. At the same time, the second processor is trying 
to read a record locked by the first processor. This condition 
causes both processors to wait indefinitely, unless the USE ON 


STALEMATE oantion is used. This option allows the user to specifv 


WAIT 


WAIT. 
The function of this verb is to cause the suspension of an executing 


object program for a specified number of seconds. 


The construct of this verb is: 


WATT { literal \ 


data-name 


WAIT may be executed when using any version of the MCP. 


A WAIT statement specifying a literal will cause the executing 
object program to be suspended for that number of seconds and 
automatically become re-instated, after the specified period of 


time has expired, by the MCP. 


The WAIT statement is particularily effective in continuous polling 
loops where polling is required every few seconds, thus releasing 


the intervening time to the other programs in the mix. 


If data-name is specified as containing the WAIT value, it must be 


PICTUREd as PC 9(5) COMPUTATIONAL. 


Reference should be made to the WAIT verb in section 6 (Data 
Communications ) of this manual. That construct when specified, 
requires the presence of a version of the Data Communications 


MCP at object program execution time. 
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WRITE. 


The function of this verb is to release a logical record for an 
output file. It is also used to vertically position forms in the 
printer. For mass storage files, the WRITE statement also allows 
the performance of a specified imperative statement if the contents 


of the associated ACTUAL KEY item are found to be invalid. 
The construct of this verb has two options which are: 


Option 1: 


WRITE record-name [FROM data-name-1] 


integer-1 
( Ae aaa \ wales 


] [ 7° CHANNEL ener ¥] 


: data-name-3 
ERROR 
AUXILIARY 


| SE On \ ADVANCING 


BEFORE 


Option 2: 


[ ( WITH LOCK 
WRITE record-name | { BRON LOCK ne } | 


INVALID KEY any statement {ae \ statement | 


An OPEN statement for a file must be executed prior to executing 


the first WRITE statement for that file. 


The record-name must be defined in the DATA DIVISION by means of 


un 
fo 
TO 
19.6) 


WRITE 


continued 


a O1 level entry under the FD entry for the file. The record-name 
and data-name-1 must not be the same name, or be in two files that 


have the same record area, 


The ADVANCING option allows the control of vertical positioning of 
each record on the printed page. The options are: i 


a. When LINES is used, data-name-2 must be declared as PC 99 
COMPUTATIONAL or integer-1 must be a positive integral 
value of OO THRU 99. 


b. WRITE BEFORE ADVANCING is more efficient than AFTER 
ADVANCING. 


ce. When CHANNEL is used, data-name-3 or integer-2 must possess 
a positive integral value of O1... 11. Data-name-3 must 
be declared as PC 99 COMPUTATIONAL. The MCP will advance 
the line printers carriage to the carriage control 


channel specified. 
Option 2 must be used for writing on disk files. 


If the FROM option is specified, the data is moved from the area 


specified by data-name-1 in Option 1, and data-name in Option 2, 


to the output area, according to the rules specified for the MOVE 
statement without the CORR or CORRESPONDING option. After execu- 
tion of the WRITE statement is completed, the information in the 
data-name following the word FROM is available, even though that 


record-name is not available. 


When the WRITE statement is executed at object time, the logical 
record is released for output and is no longer available for ref- 
erencing by the object program. Instead, the record area is ready 
to receive items for the next record to be written. If blocking 
is called for by the COBOL program, the records will be blocked 

by object code automatically generated at compile time. When the 
blocking area becomes full, or partially full at EOJ or EOF, the 


object program will transfer control to the MCP to cause the block 
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to be physically written. An exception to this procedure of 


bis 

($) card (see section 8), however, speed will be sacrificed fora 
small savings in core used by the blocking routine for the speci- 
fied file. Short blocks of records which were written during EOF 
or EOJ will be of no programmatic concern to the user when using 


the file as INPUT at a later period of time. 


If a write error is detected during a magnetic tape write operation, 
the tape record in error will be erased and a rewrite will be 
attempted further down the tape until the record is finally written 
correctly. A punch or printer write error will result in a message 
to the operator. The COBOL programmer need not include any USE 


procedures to handle write errors. 


The shortest allowable blocks which can be written on 7 and 9 


channel magnetic tape units are 8 and 18 bytes respectively. 


If a CLOSE statement has been executed for a file, any attempt to 
WRITE on the file until it is OPENed again will result in an error 


termination. 


For files which are being accessed in a SEQUENTIAL manner, the 
INVALID KEY clause is executed when the end of the last segment of 
the file (last record) has been reached and another attempt is made 
to WRITE into the file. The last segment of a file is specified 

in the FILE-LIMITS ciause or ile FILE CONTAINS clause. Similarly, 
for files being accessed in a RANDOM manner, the INVALID KEY clause 
will be executed whenever the value of the ACTUAL KEY is outside 
the defined limits. An INVALID KEY entry must be specified when 
writing to a file described as containing FILE-LIMITS. 


Records will be written onto DISK in either a SEQUENTIAL or RANDOM 
manner according to the rules given under ACCESS MODE. For RANDOM 
accessing, SEEK statements will be explicitly used for record de- 


termination as defined under ACCESS MODE, GREK, ana READ. 


If the size and blocking of records being accessed in a RANDOM 


5-130 


WRITE 


continued 


manner is such that a WRITE statement must place a record into the 
middle of a block without disturbing the other contents of the block, 
then an implicit SEEK will be given to load the block desired (if 

an explicit SEEK has not been given). If the file is being pro- 
cessed for INPUT/OUTPUT, then either an explicit or implicit SEEK 
for a READ statement will suffice to load the block between the READ 
and WRITE statements. 


If the value of the ACTUAL KEY is changed after a SEEK statement has 
been given and prior to the WRITE statement, an implied SEEK will be 
performed and the WRITE will use the record area selected by the im- 
plied SEEK as the output record area. The value contained in ACTUAL 
KEY will not be affected. 


For RANDOM access, when records are unblocked, the use of a SEEK 
statement related exclusively to WRITE is unnecessary, and may re- 
sult in an extra loading of the record from disk because the com- 
piler is, in general, unable to distinguish between SEEK statements 
that are intended to be related to a READ and those intended to be 
related to a WRITE. 


The card record being written will be seiected to the ERROR or to 
the AUXILIARY stackers if indicated in the particular WRITE being 


executed. 


The WITH LOCK option WRITEs the current record and then makes it 


available to other programs. 
This entry is only applicable to Shared Disk MCP use. 


The FROM and WITH LOCK options are mutually exclusive. 
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ZIP. 
The function of this verb is to cause the MCP to execute a control 


instruction contained within the operating object program. 


The construct of this verb is: 


ZLP data-name 


ieee 


Data-name (any level) must be assigned a value equivalent to the 
information contained in a MCP Control Card. If the VALUE uses 
more than one statement card, the first character inside of the 
leading quote marks of the first card must be a period. Value is 
always ended with a period inside of the ending quote marks. ZIP 
may be used for programmatic scheduling of subordinate object pro- 
grams contained in the Systems program library or to accomplish 
any of the "CC" MCP control functions as performed through the SPO 


or card reader. 


In the statement ZIP TO-CALL-~PGM2, the DATA DIVISION of the source 


program could contain the following entry: 
O1 TO-CALL-PGM2 PIC X(13), VALUE IS "EXECUTE PGM2." 


The MCP will be called upon when the object program encounters the 
ZIP statement and will reference data-name (TO-CALL-~PGM2 in the 
above example) to find out which control function is being called 
for. Using the above example, the MCP will schedule PGM2. When 
the time comes and the priority for PGM2 is recognized and 

memory space becomes available, the MCP will retrieve PGM2 from the 
program library and place it in the Mix for subsequent operation. 
The program containing the ZIP verb will proceed to the next se- 


quential instruction following the ZIP. 


Reference must be made to the B 2500/B 3500 Master Control Programs 


Informational Manual for MCP Control Information formats. 
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CODING THE PROCEDURE DIVISION. 


Figure 5-10 illustrates the manner in which the PROCEDURE DIVISION 
may be coded. 
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SECTION 6 
DATA COMMUNICATIONS 


GENERAL. 


This section deals with the COBOL constructs of the PROCEDURE 
DIVISION required to activate the data communications equipment 
as defined by the ASSIGN to hardware-name clause. 


SPECIFIC VERB FORMATS, 


The specific verb formats together with a detailed discussion of 


the restrictions and limitations associated with each, appear on 


the following pages in alphabetic sequence. 


NOTE 
The use of any of the verbs in 
this section requires the pre- 
sence of a version of the Data 


Communications MCP. 


ACCEPT 


ACCEPT. 


The function of this verb is to 


4 e} 


ermit the entry of low-volume 


data from a remote SPO. 


The construct of this verb is: 


literal 1 
data-name-1 f 


ACCEPT data-name FROM | 


This statement causes the operating object program to halt and 
wait for appropriate data to be entered through a remote SPO. The 
remote SPO operator responds to an ACCEPT halt by keying in the 


following message: 
? MIX-INDEX AXdata-required 


If a blank appears between the AX and data-required, the blank 


character will be included in the data-stream. 


When the object program executes an ACCEPT statement, the infor- 
mation will be transmitted from the remote SPO keyboard into 


memory locations assigned to the data-name. . 


The number of characters transmitted must correspond to the size 


of the receiving data-name. 


Because of the inefficiency of entering data through the remote 
keyboard, this technqiue of data transmission should be used 


sparingly and solely restricted to low-volume data. 


The maximum number of characters per ACCEPT statement is unlimited. 
ACCEPTS of greater than 60 characters must be entered thru the SPO 
in exact groups of 60 characters, except for the last group which 


can be any size up to 60 characters. 


ACCEPT 


continued 


The values of literal or data-name-1 describe the name of the 
remote SPO from which data will be transmitted into the receiving- 
data-name and must be the alphanumeric name assigned to that speci- 
fic remote SPO (this is the adapter ID which is specified in the 
MCP's UNIT CARD of the System Specification Deck). Literal-1 and 


data-name-1 cannot exceed six characters in length. 
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CLOSE 


CLOSE. 


The function of this verb is to cause a data communications file to 


be CLOSEd with or without disconnecting the remote terminal. 


The construct of this verb is: 


The specified data communications file will be CLOSEd by the ini- 


tiating program. 
CLOSE will keep the file assigned to the program. 
CLOSE WITH RELEASE will release the remote device to the system. 


If the NO DISCONNECT option is used, the file is released to the 


system, but the line is not disconnected. 


DISABLE 


DISABLE. 

The function of this verb is to ignore input requests, either 
conditionally or unconditionally, from an ENABLEd device. It is 
also used to stop the flow of data to or from a remote device with 
or without disconnecting a dial line and with or without signalling 


a break to the operator of the remote device. 


The construct of this verb is: 


BREAK 
DISABLE file-name ON NO-DATA | 


DISCONNECT 


The DISABLE statement permits the object program to ignore an 


input request from the remote device or to interrupt a data flow. 


When the NO-DATA option is used and an input request has not been 
received or an operation is not in process, the input request from 
a remote device is ignored; otherwise, the DISABLE statement will 


be ignored. 


An unconditional disable with break will be transmitted to the 
remote device when the BREAK option is used. BREAK is applicable 
only to full duplex Data Sets. 


A telephone line will be disconnected when the DISCONNECT option 


is used and all input requests (ringing) are ignored. 
The DISABLE statement is used in the following situations: 


a. After a remote device has satisfied the ENABLE and 
programmatic conditions arise which indicate that a 
WRITE is in order, the programmer must code a DISABLE 
file-name ON NO-DATA statement followed by an appropriate 
WRITE or WRITE-READ, etc. 
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DISABLE 


continued 


b. Conditions arise in the process of reading from a remote 
device which indicates to the object program that a READ 
must be interrupted (one such condition might be a run- 

away device for which a DISABLE file-name ON BREAK would 


have to be initiated). 


c. DISCONNECT is used with dial lines as appropriate. 


DISPLAY 


DISPLAY, 
The function of this verb is to provide for the printing of low- 


volume data, error messages, and operator instructions on a remote 
SPO. 


The construct of this verb is: 


\ data-name-1 f data-name-2 f 


DISPLAY f literal-1 \ i literal-2 i] 


literal-3 \ 
data-name-3 f 


Data-name-~1l and literal-1 (and their associated series) are speci- 
fied as being the area within an object program from which data 


is to be transmitted to a receiving remote SPO. 


The DISPLAY statement causes the contents of each operand to be 
transmitted from the MCP SPO queue to ensure that an operational 
program is not delayed while the remote SPO message is being 


printed. 


Literal-1 and literal-2 may consist of any figurative constant, 
except ALL, 


If a figurative constant is specified as literal-1 and/or literal-2, 
only a single character of the figurative constant will be DIS- 
PLAYed. 


Data-name-1 and data-name-2 may be subscripted and can be PICTUREd 
as being composed of COMPUTATIONAL or DISPLAY data. 


An infinite amount of characters may be contained in a literal, or 


data-name to be DISPLAYED. The compiler will automatically supply 
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DISPLAY 


continued 


the proper number of carriage returns and line feeds into the 


object program, as may be appropriate. 


The DISPLAY series (15 maximum) option will cause the literals or 
data-names to be printed one after another. If required, the com- 
piler will cause automatic carriage returns and line feeds to be 
executed by the object program for information extending to con- 
tinued lines of print. The compiler will not supply partial word 
formatting at the end of a line. Data will be printed as received, 
until a carriage return and line feed is inserted by the object 
program, thus, words of data can be split between continued lines 


of output. 


The value contained in literai-3, or data-name-3, describe the name 
of the remote SPO to which data will be transmitted and must be 

the alphanumeric name assigned to that specific remote SPO as 
defined in the MCPs UNIT CARD of the Systems Specification Deck. 


Literal-3 and data-name-3 cannot exceed six characters in length. 


ENABLE 


ENABLE. 

The function of this verb is to recognize input inquiry requests 
from a remote device, to disconnect the telephone line for dial 
lines, recognize a ringing signal, or, recognize an inquiry (ENQ) 


from an appropriate remote device. 


The construct of this verb is: 


ENABLE file-name [PROCEED TO paragraph-name]| 


File-name must have been OPENed before an ENABLE can be executed. 


Once the file-name has been ENABLEd, a WAIT statement may be used 
to suspend processing until appropriate response is received. Ref- 
erence must be made to the WAIT verb, as contained in this section, 


for proper definition. 


ENABLE allows the device to establish a connection with the B 2500/ 
B 3500 System by depressing the Inquiry Key (ENQ) if the device is ff 
connected on leased lines or by dialing the systems telephone 


number if the device is on dialed lines. 


Paragraph-name must be in the non-overlayable program segment or 


in the same segment as the WAIT. 


The ENABLE statement will cause dial telephone lines to be dis- 
connected and will recognize input requests from the device in the 


form of a telephone ringing signal. 


The ENABLE statement for leased lines will recognize input requests 


from the remote device in the form of an inquiry (ENQ). | 
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FILL. 


The function of this verb is to initiate a specified type of I-0 


and allow a program to run without waiting for an I-O to be com- 
pleted. It is useful when a program is handling more than one 
remote device or when a program does not require the input data 


to continue processing. 


The construct of this verb is: 


FILL file-name [NO-TIME-OUT] [START-TEXT] [DIAL] [ END-TEXT] 


WRITE-READ 
WRITE-TRANS-READ 
WRITE- READ-TRANS 


[POLL] [VOICE] [TONE] [STREAM] WITH 


[ PROCEED TO paragraph-name | 


FILL causes the operation to be initiated. The program must accom- 


plish a READ to move the required data to the record-area. 


If the option NO-TIME-OUT WITH WRITE-READ is used, the time-out 
feature will be inhibited on the READ of the WRITE-READ clause. 


If the option START-TEXT WITH READ is used, the first code received 
is considered text and is used in generating the longitudinal re- 
dundancy check character. The start-of-text character will not 


be utilized. 


If the option DIAL WITH READ is used, a dial number is accessed 
from memory starting at the 01 level entry of the record-descrip-~ 
tion for the file-name specified. The dial numbers must be de- 
clared USAGK COMPUTATIONAL and the dial number ficid must tbe Lomma> 


nated by the binary control code of 1100 (undigit 12) which can be 
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FILL 


continued 


represented in B 2500/B 3500 COBOL as an undigit literal @C@. The 
total number of digits comprising the dial number must be even, and 
a FILLER digit with a zero value must be inserted after the undigit 
literal if necessary. The rest of the record-description for file- 
name will describe the input data from the control code or FILLER, 


whichever is applicable, to the end of the record description. 


If the option END-TEXT WITH WRITE-READ is used, the control code 
denoting End-of-Text (ETX) is not transmitted. The ETX function 


is ignored and the longitudinal redundancy check (LRCc) character 
is not generated or sent. This option is used for polling opera- 


tions only. 


if the option VOICE WITH WRITE-READ is used, the voice response 
adapters are ENABLEd automatically. Characters received from 

memory are sent to the voice responder and are used as voice-track 
addresses. The resulting signals from the voice responder are 

sent over the line. i 


If the option TONE WITH WRITE-READ is used, the tone leads on the 
Tone Data Sets are activated. The character "A" produces a 1017 
hz (hertz) tone and the "B" produces a 2025 hz (hertz) tone. Any 
other character produces silence. The tones will continue for 


300 milliseconds per character sent. 


The POLL option is used only with WRITE-READ. The output area will 
consist of a series of contiguous polling or selection sequences. 

A WRITE-READ will be executed with the first such sequence; if a 
message other than a negative response is returned, the entire 
operation terminates with the control character at the end of the 
message, otherwise, the negative response is discarded and another 
WRITE-READ is automatically initiated using the next sequence. 

When only negative responses are returned, the operation is term- 
inated by two successive ending characters. If a message is re- 
turned, it will be written in the area following the sequence which 


received the response, thus overlaying the successive sequences. 
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FILL 


continued 


If the STREAM option is specified, 


into ascending memory locations starting at the O1 


level 
record description for the specified file-name. See the 
option of the READ statement in this section for further 


tion. 


FILL statements normally are initiated to severai remote 


and are followed by a WAIT statement. 


the information is transferred 


of the 
STREAM 


informa- 


devices 


INTERROGATE 


INTERROGATE. 
The function of this verb is to obtain a result descriptor repre- 


senting the operational status of a remote device. 


The construct of this verb is: 


INTERROGATE [ END-TEXT] file-name INTO data-name 


Data-name, when END-TEXT is not specified, must be defined as an 
elementary item with a PICTURE 9(16) COMPUTATIONAL and must be RE- 
DEFINEd to make programmatic reference to each element within the 


result descriptor. 


The COBOL result descriptor contains 16 digits which indicate con- 
ditions that occurred during an T/O Operation. The digits of in--: 
formation within the result descriptor are assigned the following 


meanings when turned "ON", 


Digit Number Meaning 
1 Operation complete. 


Exception condition. 


3 Not ready local (single-line). 
(Multi-line if during operation). 

4 Data error. 

5 Abandon call retry (ACR). 

6 Cancel complete 

7 End-of-transmission (EOT). 

8 Attempt to exceed maximum address. 

9 Time out. 

10 Memory parity error. 

11 Write error. 

12 Carrier loss. 


13 through 16 Reserved. 


INTERROGATE 


continued 


Digit Number Meaning 
4 and 5 Data loss. 
6 and 7 Break detected. 


ON status is indicated by a value of 1. OFF status is indicated 
by a value of zero. Digits are independent of one another and can 


reflect varied combinations. 


Explanation of the result descriptor digits is as follows: 


Digit Number Status 
1 Always ON if the attempted operation was 
completed. 
2 Will be ON if any combination of three through 


16 are ON. This is the test position to see 
if any exception exists. If this position is 
ON by itself, a partial complete condition 
exists due to the use of READ STREAM MODE 


and will not occur in any other situation. 


3 Will be ON if the single line control or the 
local Data Set is not ready and the operation 
will be terminated. For multi-line control 
the digit is set ON in the channel result 

descriptor unless it occurs during an opera- 

tion, in which case it is set ON in the adap-— 


ter result descriptor. 


4 If a data error (message or character parity) 
occurs, a READ operation continues until ter- 
minated in a normal manner. The phone line 
is not disconnected. Attempts to exceed max- 
imum address, time out, End-of-Text (ETX), or 


End-of-Transmission (EOT) can also occur. 


4 and 5 If data loss (missed memory access or MLC 


“4 ‘ te ees hee ees Sip ceerwien wee ae 
cycle wa READ Operation ConTi 
; $ 


Digit Number 


6 and 7 


INTERROGATE 


continued 


Status 


terminated in a normal manner. Attempts to 
exceed maximum address, time out, End-of-Text 
(ETX), or End-of-Transmission (EOT) can also 
occur. The phone line is not disconnected. 
A WRITE operation is terminated immediately 


and position 11 is set. 


If an abandon call retry condition exists, 
this position will be set ON and the telephone 


line is disconnected. 


If a cancel complete condition exists, this 
position will be set ON and CANCEL is ini- 
tiated. 


If a break is detected, these positions will 
be set ON for a WRITE operation only and the 
operation is immediately terminated. The 


telephone line is not disconnected. 


If the End-of-Transmission exists, this 
position is set ON and the telephone line 


is disconnected. 


If an attempt to exceed maximum address 
exists, a READ operation will initiate a 

time out and wait for a control code denoting 
End-of-Text (ETX). This position will be set 
ON if an End-of-Text (ETX) is received before 
time out. This position along with position 
7 will be set ON if an (EOT) is received be- 
fore time out. This position and position 9 
will be set ON if time out occurs without 

ETX or EOT. A WRITE operation is immediately 
terminated and this position along with posi- 
tion 11 is set ON. The telephone line is 
disconnected in each case. 
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INTERROGATE 


continued 


Digit Number Status 
9 Tf time out exists, this position is set ON 


and the telephone line is not disconnected. 


Time out occurs on READ instructions only. 


10 and i1 If a memory parity error exists, these posi- 


14 


If the 
number 


of the 


tions are set ON and the telephone line is not 
disconnected. Memory parity error occurs only 
during a WRITE operation, and will immediately 


terminate the operation. 


12 A READ operation continues until terminated in 
a normal manner. The phone line is not dis- 
connected. Attempt to exceed maximum address, 
time out, End-of-Text (ETX) or End-of-Trans- 


mission (EOT) can also occur. 


13 Used in multi-line control to check end-of- 


stream, when operating in stream mode. 
and 16 Reserved. 


END-TEXT option is specified, data-name will contain the 
of characters transmitted to and/or from the current buffer 


file. Counting begins when the descriptor is initiated and 


continues until it is complete. Data-name must be defined as PC 
9(6) COMPUTATIONAL. If the I-O is not complete on the current buf- 
fer, the INTERROGATE END-TEXT is ignored. 


READ 


READ. 
The function of this verb is to load data from a remote device 
into ascending memory locations beginning with the location speci-~ 


fied by the O1 level of the record-description of a file. 


The construct of this verb is: 
READ file-name [INTO record-name| [NO-TIME-OUT] [ START-TEXT] 
[STREAM] [DIAL] [AT END any statement] 


OTHERWISE 
ELSE 


any statement 


Loading will continue until an ending code such as End-of-Trans- 
mission (EOT), End-of-Text (ETX) or End-of-Block (EOB) is de- 
tected, or until the buffer is filled. 


The time out feature is inhibited on the READ if the NO-TIME-OUT 


option is used. 


If the START-TEXT option is used, the first code received is con- 
sidered text and is used in generating the Longitudinal Redun- 
dancy Check (LRC) Character. The start of text character will not 


be used. 


If the STREAM option is used, the information is written into 
ascending memory locations starting at the O1 level of the record- 
description for the file-name specified. The record-description 
entry must define at least 200 digits (100 bytes). A control code 
denoting End-of-Text (ETX) will terminate the operation. The use 
of a FILLER after the End-of-Text (ETX) character in the record- 
description will be required to ensure that the End-of-Text (ETX) 


control code will not be the last position in that entry. 
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READ 


continued 


See the DIAL WITH READ option of the FILL statement for the DIAL 


requirements. 


If the AT END option is used, an End-of-Transmission (EOT) char- 
acter received will cause the program to accomplish the indicated 
actions. NEXT SENTENCE is implied in the absence of an AT END 


statement. 


WAIT 


WAIT. 
The function of this verb is to suspend an object program until 
an ENABLE or FILL statement is initiated and/or to suspend an ob- 


ject program for a specified number of seconds. 
The construct of this verb has two options which are: 


Option 1: 


WAIT 


Option 2: 


WAIT UNTIL { literal \ 


data-name 


Literal reflects the number of seconds that the object program is 
to be suspended. The maximum WAITing period is 23 hours, 59 


minutes, and 59 seconds (86,399 seconds). 


Option 1 is used in conjunction with the ENABLE or PILL statements 
if a WAITing period is desired. It normally follows either state- 


ments. 


In Option 1, FILL statements are normally initiated to several 
lines and are followed by a WAIT statement. This statement would | 
not ordinarily be used when only one device is involved, as a FILL 


statement by itself will affect the same action. 


In Option 2, the object program is suspended until an ENABLE or 


FILL statement is initiated or until the number of seconds have 
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WAIT 


continued 


d, whichever comes first. Data-name must be described as 
7 


COMPUTATIONAL. 


The following rules apply when WAIT is used in conjunction with 


the ENABLE of FILL constructs: 


ON 


a. If an ENABLE and/or FILL statement contains a PROCEED 
TO paragraph-name and either statement comes "true", 
the object program will be reinstated at the appropriate 


PROCEED TO paragraph-name. 


VuUEY -. 


b. If the PROCEED TO option is omitted and an ENABLE and/or 
FILL statement comes "true", the object program will be 
reinstated at the next instruction following the WAIT 
UNTIL statement. This rule does not apply to Option 1. 


c. If a PROCEED TO option is omitted, the object program 
will not know how it got to the next instruction. That 
is: Did a FILL or ENABLE come "true" or did the WAIT 
UNTIL time expire? An INTERROGATE of all ENABLEd or 


FILLed files will have to be performed to determine 
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WRITE 


WRITE. 


The function of this verb is to pass data to a remote device from 
ascending memory locations beginning at the 01 level of the per- 


tinent record-description. 


The construct of this verb is: 


WRITE record-name-1 [FROM record-name-2] [ END-TEXT] 


[ START-TEXT] [STREAM] [DIAL] [VOICE] [TONE] [AT END 


any statement | I { oTuEEWISE \ any statement | 


Data will be passed until a control code denoting End-of-Trans- 


mission (EOT) or End-of-Text (ETX) is detected in record-name-1. 


If the END-TEXT option is used, the End-of-Transmission (EOT) con- 
trol code is not transmitted, the End-of-Transmission function is 
ignored, and the Longitudinal Redundancy Check Character (LRC) is 


not generated or sent. 


If the START-TEXT option is used, the first code sent is consi- 
dered text and is used in generating the LRC. The start of text 


function is automatically preset. 


If the STREAM option is used, the information is passed from 
ascending memory locations starting at the Ol level of record-name-1 


See the STREAM option of the READ statement for further information. 


If the DIAL option is used, the dial number is accessed from memory 
starting at the O1 level entry of record-name-1. Information to 
be passed to a remote device will begin at the level entry following 


the @C@ control code or the FILLER digit, whichever is applicable. 
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WRITE 


continued 


See the DIAL WITH READ option of the FILL statement for further 


If the VOICE option is used, the voice response adapters are 
ENABLEd automatically. Characters are passed from memory to the 
voice responder and are used as voice track addresses. The re- 


sulting signals from the voice responder are sent over the line. 


If the TONE option is used, the tone leads on the Tone Data Sets 


are activated. Characters received from memory by the I/O adapter 


are sent to the tone leads as follows: 


ae "B" characters to the 2025 hz lead. 
b. "A" characters to the 1017 hz lead. 
c. <All others to the silent lead. 


The tones or silence will continue for 300 milliseconds per char- 


acter sent. 


Reference the FILL and WAIT constructs, this section, for require- 


ments of FILL WITH WRITE and FILL WITH WRITE and WAIT. 
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WRITE-READ 


WRITE-READ.. 
The function of this verb is to pass data to a remote device from 
memory locations and, when successfully completed, to cause data 


to be read from the remote device and passed to appropriate memory 


locations. 


The construct for this verb is: 


WRITE-READ record-name-1 [FROM record-name-2] [NO-TIME-OUT] 


[ END-TEXT] [START-TEXT] [VOICE] [DIAL] [TONE] [POLL] [STREAM] 


[AT END any statement] 


Data will be passed to the remote device from ascending memory 

locations starting at the O1 level of record-name-1 and will con- 
tinue until a control code denoting End-of-Transmission (EOT) or 
End-of-Text (ETX) is detected. A READ will then be initiated on 
the remote device and the data will be passed to ascending memory 
locations beginning with the location immediately following the 

End-of-Transmission (EOT ) or End-of-Text (ETX) control code which 
terminated the WRITE and will continue until an End-of-Text (ETX) 
control code from the remote device is encountered. Each portion 
of the message being written and read must be terminated by an 


End-of-Transmission (EOT) or End-of-Text (ETX) control code. 
NO-TIME-OUT, see the READ statement. 

END-TEXT, see the WRITE statement. 

START-TEXT, see the READ statement. 

VOICE, see the WRITE statement. 


DIAL, see the WRITE statement. 
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WRITE-READ 


continued 


TONE, see the WRITE statement. 
POLL, see the WRITE statement. 
STREAM, see the WRITE statement. 


If the AT END option is used, an End-of-Transmission control code 


received will cause the program to accomplish the indicated actions. 
NEXT SENTENCE is implied in the absence of an AT END statement. 


Reference the FILL and WAIT constructs, this section, for require- 


ments of FILL WITH WRITE and FILL WITH WRITE and WAIT. 
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WRITE-READ-TRANS 


WRITE-READ-TRANS. 

The function of WRITE-READ-TRANSparent is to pass data to a remote 
device (normally a computer) from memory locations and, when suc- 
cessfully completed, to cause data to be read from the remote de- 
vice and passed to appropriate memory locations and terminating 

at the end of the record-description without passing an End-of- 


Transmission (EOT) or End-of-Text (ETX) control code. 


The format of WRITE-READ-TRANS is: 


WRITE-READ-TRANS record-name-1 [FROM record-name-2] 


[NO-TIME-OUT] [DIAL] [AT END any statement] E 


Data will be passed to the remote device from ascending memory 
locations starting at the O1 level of record-name-1 and will con- 
tinue until a control code denoting End-of-Transmission (EOT) or 
End-of-Text (ETX) is detected. A READ will then be initiated on 
the remote device and the data will be passed to ascending memory 
locations beginning with the location immediately following the 


End-of-Transmission (EOT) or End-of-Text (ETX) control code which 


terminated the WRITE and will continue untii the end of record-name- 
1. The Attempt To Exceed Maximum Address in the Result Descriptor 


will not be turned ON when the end of record-name-1 is reached. 
NO-TIME-OUT, see the READ statement. 
DIAL, see the WRITE statement. 


The AT END option will be initiated when NEXT SENTENCE is implied 


in the absence of an AT END statement. 


This statement is normally used for remote computers to the system. 
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WRITE-TRANS-READ 


WRITE-TRANS-READ. 

The function of this verb is to pass data to the remote device 
(normally a computer ) until the end of the record description is 
reached and, when successfully completed, to cause data to be 
passed from the remote device to memory locations starting at the 
end of the record-description and continuing until an End-of- 


Transmission (EOT) or End-of-Text (ETX) control code is detected. 


The construct of this verb is: 


WRITE-TRANS-READ record-name-1 [FROM record-name-2] 


[NO-TIME-OUT] [DIAL] [AT END any statement] 


The READ portion of this statement will continue passing data until 
an End-of-Transmission (EOT) or End-of-Text (ETX) control code is 
detected but will cut off the flow when location ending record- 


name-1 address + 199 is reached. 
NO-TIME-OUT, see the READ statement. 
DIAL, see the WRITE statement. 


The AT END option will be initiated when NEXT SENTENCE is implied 


in the absence of an AT END statement. 
This statement is normally used for remote computers to the system. 


The end of the record-area may be programmatically altered by use 
of the ACTUAL KEY clause in the FILE-CONTROL paragraph. The ACTUAL 
KEY data-name must be defined as PC 9(6) COMPUTATIONAL. The value 
contained there-in will be used when the I-0 is initiated to de- 
termine the number ot characters 1n the record area. ‘the ending 


address of the result descriptor will be adjusted accordingly. 
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SECTION 7 
CODING FORM 


GENERAL. 

The coding form, which provides a standard method for describing 
COBOL source programs, has been defined by CODASYL specifications 
and common usage. The B 2500/B 3500 COBOL Compiler accepts this 
standard coding format, but also allows certain departures from the 


standard, at the user's discretion. 


The same coding form is used for all four divisions of the source 
program. The four divisions must appear in the following order: 
IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, and 
PROCEDURE DIVISION. Each division must be written according to the 


rules for the coding form. 


The rules for spacing given in the following discussion of the 
coding form take precedence over all other rules for the coding 


form. 


CODING FORM REPRESENTATION. 


The coding format for a line is represented in figure 7-1. The 


digits designate columns. 


11 
Ege DO t ce ae es ee Tete <8 
2D. wee, 2 3 wae O 
ee a —— —e ee oe a 
Sequence Continuation Area A Area B Identification 
Number Area Area Area 
MARGIN L MARGIN GC MARGIN A MARGIN B MARGIN R 
Figure 7-1. Coding Format for a Source Line 


Figure 7-2 provides a sample of the COBOL Coding Form. 


BURROUGHS COBOL CODING FORM 
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| 


ot 


oy Gals Us Wan Wane CN Uae Caer Ueno! CS Es J a Cae le ns Os Cy nD rs Co CO ns Ss GS nS nm Cams US Un UI OI CUS Wer Ur Cosel LDS SS ES ne ea ps os 
ALA kk 
eae a Oe OW OD WW WW a CO p aoe Ce 
St tt 
Leb b tt th kk a 


Ab 


ns CS Cy a THs OO ES CG Wes CE COD SOY LOU CONSPIRE Ds COE nts nS NE EO rue nm Ge nw Cen ms Cs Nn CES Oey Cun Co Ue ek Ll En TRS SOE CD 


Figure 7-2. Samp lam Coding Form 


SEQUENCE NUMBERS (COLUMNS 1-6). 

The sequence number field may be used to sequence the source program 
cards. Normally, numeric sequence numbers are used; however, the 
COBOL Compiler allows any combination of characters from the allow- 
able character set. The compiler generates a warning message during 


compilation time if a sequence error (other than ascending) occurs. 


CONTINUATION INDICATOR (COLUMN 7). 

A hyphen in the Continuation Area of the continuation line indicates 
that the first character in Area B is the continuation of a 

word or a literal from the previous line. If a hyphen does not 
occur in the Continuation Area, the word or literal starting in 
Area B is not a continuation of an entry which started on the 


previous line and is separated from the previous entry with a space. 


An asterisk (*) indicates that the source line is for documentation 
purposes only and can appear anywhere within the source program. 
Continuation of following lines is denoted by an asterisk in column 7 
of the continued data. All entries of this type are free form from 


Area A through Area B. 


A slash (/) indicates that the source line is for documentation 
purpose oniy and that a skip to the head of a new page is required 


during the listing phase of the compiler output. 


The letter L followed by a "library-name" entry, will cause all 
succeeding source card data to be placed into the COBOL Library File 
during compilation. Termination of the action takes place when an 


L card is encountered followed by spaces. 


CONTINUATION OF UNDIGIT LITERALS. 


When an undigit literal is continued from one line to another, a 
hyphen is placed in the Continuation Area (column 7) of the con- 
tinuation line, but the at sign (@) is not placed in the first 
character position of Area B (column 12). The continuation of the 


undigit literal commences in column 12 of Area B. 
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CONTINUATION OF NON-NUMERIC LITERALS. 

When a non-numeric literal is continued from one line to another, a 
hyphen is placed in the Continuation Area (column 7) of the contin- 
uation line anda quotation mark must be the first non blank posi- 
tion of Area B. The continuation of the non-numeric literal com- 
mences immediately following the quotation mark. All spaces at the 
end of the continued line and any spaces following the quotation 
mark of the continuation line and preceding the final quotation mark 


of the non-numeric literal are considered part of the literal. 


CONTINUATION OF WORDS AND NUMERIC LITERALS. 

When a word or numeric literal is continued from one line to another, 
a hyphen is placed in the Continuation Area of the continuation line. 
This indicates that the first character of Area B of the continuation 
line is to follow the last non-blank character of the continued line 


without an intervening space. 


Figure 7-3 illustrates the use of the Continuation Indicator for 


both non-numeric literals and other word entries. 


DIVISION HEADER. 

The Division Header must be the first line of a division coding 
format. The Division Header starts in Area A with the division 
name, is foliowed by a space, then the word DIVISION, and then a 
period. No other text may appear on the same line as the Division 


Header. 


SECTION HEADER. 

The name of a section starts in Area A of any line except the first 
line of a division coding format. It is followed by a space, then 
the word SECTION, and then a period. In the PROCEDURE DIVISION, an 
option may be exercised by which the word SECTION would be followed 
by a space followed by a priority number. As above, the priority 


number would be followed by a period. No other text may appear on 


ma na thn Gantdnwn UWanA nn awannnt Am thn Anntanantaxern nantian 
ome To) Vane WVU uaa 2 wenn Ce Va SPY ee Ve RS a Pe ee 


of the PROCEDURE DIVISION. In this case, the USE and COPY sentences 
may begin on the same line as the Section Header. A section con- 
sists of paragraphs in the ENVIRONMENT and PROCEDURE DIVISIONs and 
-data description entries in the DATA DIVISION. Paragraph names, but 
no section names, are permitted in the IDENTIFICATION DIVISION. 


PARAGRAPH NAMES AND PARAGRAPHS. 


The name of a paragraph starts in Area A of any line following the 
first line of a division coding format and ends with a period. A 
paragraph consists of one or more successive sentences. The first 
sentence in a paragraph begins in Area B of either the same line as 
the paragraph name or any succeeding line. Successive sentences 
either begin in Area B of the same line as the preceding sentence 
or in Area B of the next line. A sentence consists of one or more 


statements, followed by a period. 


DATA DIVISION ENTRIES, 

Each DATA DIVISION entry begins with a level indicator or a level 
number, followed by one or more spaces, followed by the name of a 
data item, followed by a sequence of independent clauses described 
in the DATA DIVISION. Each clause, except the last clause of an 
entry, may be terminated by a semicolon or comma. This last clause 


is always terminated by a period. 


There are two types of DATA DIVISION entries: those which begin 
with a level indicator and those which begin with a level number. 

A level indicator is an FD. In those DATA DIVISION entries which 
begin with the level indicator FD, the level indicator begins in 
Area A followed by a space and then by its associated file name and 


appropriate descriptive information and terminated with a period. 


DATA DIVISION entries that begin with level numbers are called data 
description entries. A level number may be one of the following 
set: O1 through 49, 66, 77, and 88. Level numbers are written 
either as a space followed by a digit or a zero followed by a digit. 
At least one space must separate the level number from the word that 
follows it. 
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Level numbers O1, 66 and 77 should be coded in Area A. Other level 


numbers should be coded in Area B. Each successively higher level 
number should be indented four positions. This makes the coding 
easier to follow, and structure is readily apparent. Using odd num- 


bered level numbers permits easy patching of record descriptions. 


Coding repetitive information in the same columns makes keypunching 


easier; such as, PIC in columns 36-37, VALUE columns 52-56. 
For example: 


O1 INPUT-RECORD. 


03 AMOUNT PC 9(5)Vv99. 
03 AMOUNT-OUT PC 9(5)Vv99. 
03 FACTORS PC 9(3)V9(5). 
03  PERCNT PC Vv999. 
03  NAME-CITY Pc x(10). 
03 CODR PC XX. 
03 DATER. 

05 MONTH PC 99. 

O05 DAY PG 99. 

05 YEAR PC 99. 

88 CUR-DECADE VA 
60 THRU 69. 

03 FILLER PC xX(33). 


66 IN-DATE RENAMES MONTH THRU YEAR. 


NOTE 
The above 88 level is continued on 
the following line, however, a dash 
in column 7 must not appear, inasmuch 
as the compiler continues to scan the 
following line in an effort to satisfy 


the VAlue requirement. 


OL/8Z/6 Pasinay 


V9-Z  v00-660E01 NOd Aq 


Figure 7-3. 


BURROUGHS COBOL CODING FORM 


REQUESTED BY 


Ty E yb 


Sample Coding Showing Continuation of 
Lines, Special Remarks, and Actions 


IT 


DECLARATIVES., 
The key word DECLARATIVES and the key words END DECLARATIVES that 
precede and follow the Declaratives portion of the PROCEDURE DIVI- 


SION, respectively, must each appear on a line by itself. Each must 


begin in Area A and be followed by a period, 


PUNCTUATION. 
The following rules of punctuation apply to the writing of COBOL 


programs for the B 2500/B 3500: 


a. 


A sentence is terminated by a period. A period may not 
appear within a sentence unless it is within a non-numeric 
literal or is a decimal point in a numeric literal or is 


in a PICTURE. 


Two or more names in a series must be separated by a space 


or a comma. 


Semicolons are used for readability and are never required. 
The semicolon is used for separating statements within a 


sentence or clauses within data description entries. 


The reserved word THEN is also used for readability and 
can be used to separate two statements within a sentence. 
It can also be used between the condition and the first 


statement within an IF statement. For example: 
IF .... THEN .... THEN .... ELSE .... 


A space must never be imbedded in a name; hyphens may be 
used instead. However, a hyphen may not start or terminate 


a name. For example: 


PRODUCTION-PERIOD is a good data-name, section- 


name, or paragraph-name. 


-PRODUCTION-PERIOD or -PRODUCTION-PERIOD- or 
PRODUCTION-PERIOD- are all 


bad entries. 


Lo8 


SECTION 8 
COBOL COMPILER CONTROL 


GENERAL. 

There are currently two versions of the B 2500/B 3500 COBOL Compiler: 
COBOLL (30KB) and COBOL (17KB). The COBOLL (or COBOL) Compiler, in 
conjunction with the MCP, allows for various types of actions dur- 


ing compilation and is explained in the text that follows. 


COMPILATION CARD DECK. 

Control of the COBOL Source Language input is derived from present- 
ing the Compilation Card Deck, illustrated in figure 8-1, to the 
MCP. 


| SOURCE DATA 


'¢ OPTION CONTROL CARD 


peaeee ee | 
SOURCE DATA 


/ 
Hy 


$ OPTION CONTROL CARD 


= 


SOURCE DATA 


$ OPTION CONTROL CARD 


?DATAB CARD 
?LABEL EQUATION CARD 


?COMPILE CARD 


Figure 8-1. Compilation Card Deck 


The Compilation Card Deck is comprised of several cards; these cards, 


along with a detailed discussion of their function are presented in 


the paragraphs that follow. 
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? COMPILE CARD. 
The first input control card instructs the MCP to call-out either 
the COBOLL or COBOL Compiler and to complete the indicated program- 


name P-N using one of the following options: 


a. To compile and run the resultant object program, the card 
is coded: 


?COMPILE P-N WITH COBOLL (or COBOL) 


b. To compile for a syntax check only, the card is coded: 
?COMPILE P-N WITH COBOLL SYNTAX (or COBOL) 


c. To compile and place the resultant object code into the 
Systems Library, the card is coded: 


?COMPILE P-N WITH COBOLL LIBRARY (or COBOL) 


d. To compile and place the resultant object code into the 
Systems Library: and then run the object program, the card 
is coded: 


?COMPILE P-N WITH COBOLL SAVE (or COBOL) 


e. To give the compiler more core space to operate in, the 
card is coded: 

?COMPILE P-N WITH COBOLL CORE nnnnnn (or COBOL) 

The nnnnnn entry must be larger than the compiler size 


being used. 


The absence of the ?COMPTLE card will cause the System Operator to 
manualiy execute one of the above options through the SPO, using 


the MCP's CC notation in place of the question mark (?). 


MCP LABEL CARD. 
The second control card is the MCP LABEL card and is formatted in 


either of the following forms: 


ae ? DATA CARD (indicates EBCDIC source language input). 
b. 2?DATAB CARD (indicates BCL source language input). 


The absence of the MCP LABEL card will cause the message, 


**xNO FILE file-name program-name = mix-index 


to be displayed on the SPO. The System Operator will not know the 
proper IL message to give the MCP (because of the options involved), 


without being given specific instructions by the programmer. 


$ OPTION CONTROL CARD. 

The third card is the COBOLL (or COBOL) Compiler Option Control card 
($ sign in column ee This card is used to notify the compiler as 
to which options are required during the compilation. If this card 
is omitted, $ CARD LIST is assumed. The format of the Compiler 
Option Control card is as follows: 


$ option (option) ... 


The options availablie for both COBOLL and COBOL Compiler Option 


Control cards are as follows: 


a. CARD - input is from the source language cards or paper 


tape. 
b. CODE - list object code from the point of insertion. 


c. MCPB - inhibits the COBOL Compiler from generating object 
code for blocking and unblocking of input and/or output 
records. The omission of this option will generally cause 
the object program to operate faster when reading and 
writing blocked logical records. However, the user will 
forfeit a small portion of core, for each file, to obtain 
the benifits of an increase in speed. The COBOL blocking 
and unblocking intrinsic will only be used by the compiler 


when the MCPB Compiler Option is not present and: 


1) Files are declared as containing fixed-length records 


without a FILE-LIMITS clause. 


2) Records are contained on magnetic tape or reside on 


disk as SEQUENTIAL files. 


The MCP option can be inserted into the source program at 
a point just prior to every FD for which MCP blocking or 


deblocking is desired. Note that this option card must 


contain all other options required to control the comp- 
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iiation from point of insertion. 


TAPE - input is from a SOurce Language Tape (file-ID is 
SOLT) with correction/inserts and change cards included 
from either the card reader, paper tape, or magnetic tape. 
CARD is assumed by the compiler if TAPE is omitted. The 
SOLT tape is created 80 character records, bliocked five 
logical records per block. A user created SOLT may contain 


multiple files of source language programs, 


NEWT - creates a new SOLT from cards or from an old SOLT 
plus pertinent changes. The presence of a NEWT in the con- 
trol card does not require that a magnetic tape be available 
when another card immediately follows it without the NEWT 


option. 


LIST - creates a double-spaced output listing of the source 


language input, with error messages, where required. 


LST1 - same as LIST, except that the listing will be single 


spaced. 
SUPR - suppresses warning messages. 


SPEC - negates LIST or LST1 if syntax errors occur. If 
both SPEC and SUPR are specified and no syntax errors occur, 


all printing is suppressed including the final summary. 


BLNK - causes all cards with columns 7-72 blank to be auto- 
matically purged. A subsequent control card without BLNK 


will turn off this option. 


Non-numeric literal - is inserted in columns 73-80 of all 
following card images when creating a new tape (NEWT) and/or 
printing. This option can be turned off or changed by a 


subsequent control card. 


+nnnnnn - re-sequencing increment of source language input 
in the output list and a new SOLT if applicable. Re-seq- 


uencing is re-initialized by each subsequent control card, 


me 


or turned off if a subsequent control card does not contain 


this option. 


nmnnnnn - re-sequencing starting number of Source Language 
input. Re-sequencing is re-initialized by each subsequent 
control card, or turned off if a subsequent card does not 


contain this option. 


The COBOLL compiler contains all of the above options, plus the 


following: 


Ae 


JAPN - causes the output listing to be compressed and to 


start in column 37 of the print line. 


SKIP nn - used by the programmer to specify the number of 
lines on a page for a COBOL source print-out. The letters 
nn designate the number of lines desired. If this option 


is omitted from the $ CARD, channel 12 is used. 


XREF - when coded in the $ CARD, a cross-reference of the 
compiled program is printed out, after compilation by the 
COBXR Program which is on the SYSTEM tape. This cross-ref- 
erence is net generated by the Cross-reference Program, 


CBXRIN. 


DISK - input is from a SOurce Language Disk file (file-ID 
is SOLD) with corrections/inserts and change cards included 
from either the card reader, paper tape, or magnetic tape. 
The SOLD disk file is created as 80 character records, 
blocked five logical records per block. The TAPE option 
and the DISK option are not permitted on the same control 
card. If neither TAPE nor DISK is specified, CARD will be 
assumed. The NEWT option may be used with the DISK option 
to create a new SOLT from an old SOLD file plus changes. 


NEWD - creates a new SOLD from cards or from an old SOLD 
(or SOLT) plus pertinent changes. If both the NEWT option 
and the NEWD option are specified, a new SOLT and a new 
SOLD will be created. 
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The NEWT option does not have to be included when operating with a 


SOLT, thus allowing temporary source language alterations without 


creating a new SOLT. 


The TAPE option without the NEWT option allows a SOLT tape to be 
referenced and to have external source images included on the output 
listing and in the object program. A new SOLT will not be created. 
Likewise, option NEWD does not have to be included when operating 


with a SOLD, thus allowing temporary source language alterations 


Columns 1-6 of the Compiler Option Control card may be left blank 
when compiling from cards. A sequence number is required when com- 
piling from tape or disk when the insertion of the $ option is re- 


quested within the source input. 


SOURCE DATA CARDS. 
These cards follow the $ Option Control cards. The following source 
cards are used to create an updated version of a SOLT (or SOLD) or 


cause temporary changes to the SOLT (or SOLD) source language input: 


a. Delete Patch Card. Punch sequence number in card columns 


1-6 with the remainder of card blank. 


b. Change or Addition Patch Card. Punch sequence number in 
card columns 1-6 and changed or added source language data 


in applicable card columns. 


Patch card decks may reside on a labeled (users choice on file-ID) 
magnetic tape as 80 column, unblocked records. The deck cannot be 
preceded by the MCP LABEL card image, e.g., ?DATA or ?DATAB, nor be 
followed by the MCP's ?END end-of-file control card image. All $ 
CARD options are available. The systems operator must be advised of 
the presence of a patch deck tape so that an IL control message can 
be initiated at the time when the compiler requests the whereabouts 


of the source language input file. 


The COBOL Compiler has the capability of merging inputs from two 


| sources (punched cards or paper tape, either of which may be merged 


8-6 


with magnetic tape) on the basis of the sequence numbers. 


The COBOLL Compiler will merge inputs from two sources (punched cards 
or paper tape, either of which may be merged with magnetic tape or 


disk) also on the basis of sequence numbers. 


When merging inputs, the output compilation listing will indicate all 


inserts and/or replacements. 


All $ options may be inserted at any point within the source language 
input data with the exception of the TAPE and the DISK options. It is 
important that each $ card included in the compiler deck contains all 


of the desired options from point of insertion. 


A card reader is not required to compile COBOLL or COBOL Programs 
from a SOLT magnetic tape or to compile COBOLL Programs from a SOLD 
disk file. Control information may be entered via the SPO or the ZIP 
statement when using the COBOLL or COBOL Compiler. When using the 
COBOL Compiler, the format is: 


LIBRARY 
CC COMPILE ... WITH COBOL SAVE VALUE O = Ny Ny NA Ny Ne Ne 


where: 
N, = 1 Tape input (SOLT) 
N, = 0 NO LIST 
1 LIST 
N, = 0 NO NEWT 
1 CREATE A NEWT 
N), = 0 NO CODE 
1 CODE 
Nz = 0 NO SUPR 
1 SUPR 
N, = 0 NO SPEC 
1 SPEC 


Revised 9/28/70 
by PCN 1033099-004 8-7 


When using the COBOLL Compiler, the format is: 


CS ral M TT Sia aan ote a) eo an TF TA TTTH - 3 ar ar + 
Cc COMPLLER With COBOLL SAVE VALUE o Ny No N, ca Ny NG 
where: 
N, = 1 Tape input SOLT) 
2 Disk input (SOLD) 


N., = O NO LIST 
1 LIST 


O NEWT OR NEWD 

1 CREATE A NEWT 

2 CREATE A NEWD 

3 CREATE A NEWT AND A NEWD 


Ny = O NO CODE 
1 CODE 


N. = O NO SUPR 
1 SUPR 


N, = O NO SPEC 
1 SPEC 


NOTE 
Card input is not permitted when using 


the SPO or ZIP statement. 


LABEL EQUATION CARD. 
This card may be used to change a compiler file-name in order to avoid 
duplication of file-names when operating in a multiprocessing environ- 


ment. The format for this card is: 
?COBOLL FILE (file-name) = (users choice of file-id) 
ors 


2?COBOL FILE (file-name) = (users choice of file-id) 


The TLahel Ranation Card for arde), if used, 


7 


the ?COMPILE ... Control Card and precede the MCP LABEL Control Card 
| (refer to figure 8-1). 


8-8 


The COBOLL and COBOL file-names which may be changed are: 


a. Card file-name = DATA 
b. New tape file-name = TATA 
c. Old tape file-name = SOLT 


The following file-names may be changed only if using the COBOLL 


Compiler: 


TATAD 
b. Old disk file-name = SOLD 


a. New disk file-name 


COMPILER LIMITS. 
The compiler limits for the COBOLL and COBOL Compilers are as follows: 


Description COBOL {17K COBOLL (30K ) 

Data-names (excluding 2100 Max. 3700 Max. 
filler) 

PROCEDURE DIVISION 1750 Max. 3200 Max 


procedure-names (less 
one for each switch) 


Unique PICTUREs (average 150 approx. 1000 approx. 
six characters long) 


PROCEDURE DIVISION 99 max. 99 max. 
segments 
NOTE 


The limits above are increased with 
additional core. For each additional 
500 characters of available core, 100 
data-names or 83 PROCEDURE DIVISION 
procedure-names or 70 PICTUREs can be 
used. Request for a larger core area 
is made by utilizing the MCP CORE func- 


tion. 


Source input is in the form of card images and is limited to a maximum 


of 30,000 per compilation. 


Work files used by the compiler will make use of multiple disk elec- 
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tronic units (EU's), up to a total of nine, if available. This feature 


results in an increased compilation speed for B 2500/B 3500 Systems 


ce) 


onfigurated with multiple EU's. 


Occasionally, a compile-time address error will occur due to STACK 
overflow. This happens, for example, when IF statements are nested 

too deeply or there are too many levels in a data-description for the 
compiler to handle with its normal STACK mechanism. When this happens, 
the STACK size can be changed by inserting into the ?COMPILE ... MCP 
Control Card, VALUE 10 = nnnnnn where nnnnnn is a 6-digit number larger 
than 001200 when using the COBOLL Compiler or 000800 when using the 
COBOL Compiler. An MCP CORE clause must also be included to increase 


the compiler size by an equal number of digits. 


SECTION 9 
READER SORTER AND LISTER ; 


GENERAL. 


This section deals with the COBOL constructs of the PROCEDURE 


DIVISION required to activate the READER SORTER and LISTER equipment a 
as defined by the ASSIGN to hardware-name clause. 


SPECIFIC VERB FORMATS. 


The specific verb formats together with a detailed discussion of the 
restrictions and limitations associated with each, appear on the 


following pages in alphabetic sequence. 


NOTES 
The use of any of the following verbs requires 
the presence of a version of the MICR or the 


Combination MICR and Data Communications MCP, 


see IT-O-CONTROL;, Section 3, for pertinent MICR 


input and output file handling declarations. 
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CONTROL 4 


CONTROL 4. 


| The function of this verb is to cause a specified READER SORTER 
pocket light to become illuminated. 


The construct of this clause is: 


CONTROL 4 data-name ON file-name 


Data-name must be declared as PICTURE 99 COMPUTATIONAL. 


Data-name must contain the 2-digit pocket number which specifies the 


pocket light desired to be turned "ON", 


Flow must be stopped and all documents pocket selected before issuing 
a CONTROL 4 statement. 


Control is set to a NOT READY condition and must be cleared by 
| depressing the START button on the READER SORTER, 


CONTROL 6 


CONTROL 6. 


The function of the verb is to advance the batch counter in the 


READER SORTER by one. 


The construct of this verb is: 


CONTROL 6 ON file-name 


Flow must be stopped and all documents pocket selected before 


issuing a CONTROL 6 statement. 
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OPEN 


OPEN. 


The function of this verb is to initiate the input processing of 


the READER SORTER. 


The construct of this verb is: 


file-name-1 [file-name-2 ... | 


OPEN INPUT { 


DEMAND 
FLOW 


At least one of the options must be specified before a file can be 


read. 


One statement may be used to OPEN multiple READER SORTERS in the same 
mode (DEMAND OR FLOW). 


OPEN INPUT FLOW is required if it is desired to OPEN a file in FLOW 


mode. 


OPEN INPUT DEMAND is assumed if DEMAND is omitted from the OPEN 


statement. 


A CLOSE statement is required if it becomes necessary to change the 


mode of operation from either OPEN INPUT DEMAND or FLOW. 


READ 
READ. 


The function of this verb is to make available the next logical 
record from the READER SORTER in DEMAND or FLOW mode. | 


The construct of this verb is: 


READ [FLOW] file-name procedure-name-1, procedure-name-2 


The record description entry (01 level) must be declared as 200 
characters. Reference RECORD DESCRIPTION in the Data Division. 


The READ FLOW... . statement must be given after an OPEN INPUT 
FLOW. This will start the flow of documents through the READER 
SORTER. 


If NO-FORMAT is specified in the I-O-CONTROL procedure, the data is 
stored (in descending sequence ) continuously. If formatting is 
specified (NO FORMAT is omitted), the data is stored (in descending 
sequence) continuously until the first transit symbol is received. 
Blanks are then stored until the 40th character location is 

reached at which point the transit symbol and remaining data is 
stored. Blanks are stored following the last information character 
read until a total of 100 characters is stored. When formatting 
(NO-FORMAT is omitted) is specified, automatic validity checking 

of the amount and transit fields is performed. Validity checking 


of the amount field includes checking: 


a. The lst and 12th characters stored for amount symbols. 


b. The intervening 10 characters for decimal digits. 


Validity checking of the transit field includes checking: 


a. The 40th and 50th characters stored for transit symbols. 


b. The intervening nine characters for the following: four 


decimal digits, hyphen (-), and four decimal digits. 
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READ 


continued 


Procedure-name-1 specifies the Location to GO TO when the flow mode 
is stopped. All documents which were in motion will be processed 

and pocket selected before going to procedure-name-l1. A READ FLOW 
statement has to be executed to restart the READER SORTER in a flow 


mode. 


Procedure-name-2 specifies the location to GO TO if a batch ticket 
(black band) was encountered during the last document pocket selec- 
tion. The record description (01 level) area has been blanked. The 
READER SORTER is in a stop flow mode and must be restarted with a 
READ FLOW statement. 


It is the responsibility of the programmer to insure the presence 
of procedure-name-1 and procedure-name-2, otherwise, an object time 


error will result. 


SELECT 


SELECT. 
The function of this verb is to pocket select the last document read 
to the pocket specified on the SORTER-READER. 


The construct of this verb is: 


SELECT data-name ON file-name INVALID procedure-name 


The SELECT statement may only be executed within a USE SORTER pro- 


cedure. 


Data-name must be declared with a PICTURE 9(4) COMPUTATIONAL and its 
format is NNRV, where: NN is the pocket to be selected, R is zero, 
and V is either zero (if the current mode is to continue) or one (if 


FLOW is to be stopped). 


If the SELECT for the document was too-late-to-process, the program 
will branch to the INVALID procedure-name. FLOW mode is stopped 

and the document has been sent to the reject (R) pocket. The in- 
formation read from the document which caused the too-late-to-process 
is stored in the record description area (01 level). However, the 
trailing documents will not have been placed in memory, but will be 


routed to the reject (R) pocket. 
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USE 


USE. 


The function of this verb is to specify procedures to handle error 


conditions and to process the document for pocket select when using 
the READER SORTER. 


The construct of this verb is: 


file-name 


1 
2 
i 
2 


A USE statement, when present, must immediately follow a section 
header in the DECLARATIVE portion of the PROCEDURE DIVISION and 
must be followed by a period followed by a space. The remainder of 
the section must consist of one or more procedural paragraphs that 


define the procedures to be used. 


Intermediate work areas, if present, in USE ON SORTER procedures 
will occupy different memory areas from those used by other USE 
procedures, or those used by the main body of the program, thereby 
preventing conflict during POCKET SELECT interrupts. Note that each 
USE ON SORTER procedure that references an intermediate area will 
create a new area. Maximum use of storage will be realized when all 
SORTER USE procedures appear first in the DECLARATIVES. This method 
allows non-sorter USE procedures to share intermediate areas with 
the remainder of the PROCEDURE DIVISION. 


Index registers are saved upon entering a USE ON SORTER procedure 


and will be reinstated upon exit from the procedure. 


The USE statement itself is never executed rather, it defines the 


conditions calling for the execution of the USE proecedure. 


USE 


continued 


The USE. . .SORTER 1. . . option is specified to handle memory ac- 


cess, cannot read, unencoded, and double documents error procedures. 


The USE. . .SORTER 2. .. option is specified to handle the Amount 


field errors. 


The USE. . .SORTER 3. . . option is specified to handle the Transit 


field errors. 


The USE. . . SORTER 4. . . option is specified for processing of a 
SELECT statement. 


The USE. . . SORTER 5. . . option is specified for handling depres- 
sion of the END-OF-FILE button on the Reader Sorter. 


It is permissible to reference a non-declarative procedure when 
using the SELECT. . . .INVALID procedure-name statement within the 
USE procedures of the DECLARATIVES portion of the PROCEDURE DIVI- 
SION. 
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CONTROL 


CONTROL. 


The function of this verb is to space, skip, and slew specified 


units and tape designations on the LISTER. 


The construct of this verb is: 


CONTROL \ file-name NOT-READY procedure-name 


The CONTROL 1. . . . option is used to perform a space operation 


specified by the unit and tape designations in ACTUAL KEY. 


The CONTROL 2. . . . option is used to perform a skip (2 1/2 inches) 
operation as specified by the unit and tape designations in ACTUAL 
KEY. 


The format of the various unit and tape designations for the 


CONTROL 1. . . .and CONTROL 2. . . .options are as follows: 


Digit Positions 
1 2 3 4 
U T U T 
where U equals Unit Number 1-3; U equals zero (Suppress Skip or 


Space), and T equals Tape Number 1-6. 


For the master/slave/slave combination, a skip or space operation is 
performed on both the master tape of unit 1 and the tape designated 
by the first and second digit positions (Di-D2) of the ACTUAL KEY. 
If the first digit position (D1) of the ACTUAL KEY is zero, then 
skipping or spacing on both the master tape on unit 1 and the tape 
designated by the second digit position (D2) of the ACTUAL KEY 


is sunnrescad 
a - i i 


CONTROL 


continued 


For the six tape/six tape combination, the second digit position 
of the ACTUAL KEY must equal zero, then the skipping or spacing of 
the master tape on the unit designated by the first digit position 
(D1) of the ACTUAL KEY is performed. If the first digit position 
(D1) of the ACTUAL KEY is equal to zero, then skipping or spacing 


of the master tape is suppressed. 


An additional tape can be skipped or spaced as designated by the 
third and fourth digit positions (D3-D4) of the ACTUAL KEY. 


An invalid ACTUAL KEY is when the first and third digit positions 
(D1 and D3) are equal to zero. 


The CONTROL 3. . . .option is used to perform a slew (10 inches) 
operation as specified by the unit and tape designations. The 
ACTUAL KEY data-name clause with PICTURE 9(4) COMPUTATIONAL for 


slew operations is as follows: 


Digit Positions 


1 2 3 4 
U Vv U at 


For the first and second digit positions the coding is as follows: 


ae V=O0 allow slew of master tape. 


b. V =1 - inhabit slew of master tape (refer to first 


note that follows). 
c. U=1- slew all tapes, unit l. 
d. U = 2 - slew all tapes, unit 2. 
e. U = 4 - slew all tapes, unit 3. 


f. U = 3 - slew all tapes, units 1 and 2 (refer to second 


note that follows). 


g. U = 5 - slew all tapes, units 1 and 3. 
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CONTROL 


continued 


h. U = 6 = slew all tapes, units 2 and 3. 
i. U = 7 - slew all tapes; units 1, 2, and 3. 
NOTES 


V takes precedence over U. 


For the six tape/six tape 
combination, only Dl = 3 


can be designated. 


For the third and fourth digit positions, the coding is as follows: 


a. U = unit number 1-3. 


on 
joy 
HT 


O - do not suppress slew. 


Q 
4 
I 


tape number 1-6. 


NOTE 
D3-D4 are used only on the 
"18 TAPE LISTER"; otherwise 


D3-D4 must be zero, 


ENABLE 


ENABLE. 
The function of this verb is to suspend the program until the not 


ready condition on the LISTER has been corrected. 


The construct of this verb is: 


ENABLE file-name 


File-=name must have been OPENed before an ENABLE can be executed. 
Once the file-name has been ENABLEd, the program will be suspended fl 


until the LISTER not ready condition (not ready or end of paper) 


has been corrected. 


WRITE 


WRITE. 
The function of this verb is to release a logical record to be 


printed on the LISTER. 


The construct of this verb is: 


WRITE record-name NOT-READY procedure-name 


The ACTUAL KEY clause is required to specify the unit and tape 
designations. The format for the various unit and tape designa- 


tions for the WRITE statements is as follows: 


Digit Positions 


For the first and second digit positions, the coding is as follows: 


a. U = 0 - suppress print. 
b. U = unit number 1-3. 
c. T = tape number 1-6. 


The record-name must be defined in the DATA DIVISION by means of a 
Ol level entry under the FD entry for the file. The O1 level entry 


must specify a record 44 characters in length. 


For the master/slave/slave combinations, the first 22 characters of 
the record-name are printed on both the master tape of unit 1 and 
the tape designated by the first two digit positions (D1-D2) of 

the ACTUAL KEY. If the first digit position (Dl) of the ACTUAL KEY 
is zero, then printing on both the master tape on unit 1 and the 
tape designated by the second digit position (D2) of the ACTUAL KEY 


is suppressed. 


For the six tape/six tape combination, the second digit position 


(D2) of the ACTUAL KEY must be zero, then the first 22 characters 
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WRITE 


continued 


are printed on the master tape of the unit designated by the first 
digit position (D1) of the ACTUAL KEY. If the first digit position 
(D1) of the ACTUAL KEY is zero, printing of the master tape is supp- 


ressed. 


The second 22 characters of the record-name are printed on the tape 
designated by the third and fourth digit positions (D3-D4) of the 
ACTUAL KEY. The printing of the tape designated by the third and 
fourth digit positions (D3-D4) of the ACTUAL KEY, is only possible 
with the "18 TAPE LISTER". 


If the LISTER is in a not ready condition, the WRITE. . .NOT READY 
procedure-name statement will be executed. If an invalid unit or 

tape number is specified, this can cause the LISTER to appear con- 
stantly busy. Depression of the LISTER STOP button causes the not 


ready condition and releases the LISTER from a busy condition. 


SECTION 10 
COBOL FILTER PROGRAM 


GENERAL. 

This section describes the usage of the Burroughs Filter Program 
for conversion of B 200/B 300/B 500, or B 5500, COBOL source pro- 
grams to the B 2500/B 3500 USASI COBOL language. 


The Filter Program is provided in two versions: 


a. To be operated on a B 5500 (supplied upon 


request). 


b. To be operated on a B 3500 (supplied on the 


regular ASR systems tape distribution). 


Resultant SOLT tapes created by either version are acceptable as 
input to the B 2500/B 3500 COBOL or COBOLL (27KB version of COBOL) 


compilers. 


A syntactically correct COBOL source program is required in order 
to produce correct object time results, otherwise undefined results 


will occur. 


The Filter Program was specifically designed for B 200/B 300/B 500 
and B 5500 DOD COBOL source language conversion. It will accept 
other than those systems specified above and has given acceptable 
results in several test cases, however, no guarantee of compatibi- 


lity is implied or intended. 


B 2500/B 3500 USASI COBOL source programs can be filtered as a pre- 


compiler symbolic language-check if so desired. 


CONFIGURATION FOR EXECUTION OF FILTER. 


The source program to be filtered can be read from either punched 
cards or magnetic tape. The input image, the output image, and 
any codes, error messages and/or advisory messages will appear 
upon the line printer. Source output data can be recorded either 


in punched cards or on magnetic tape. An additional magnetic tape 
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is required if the program being filtered contains SELECT file-name 


RENAMING file-name statements in the ENVIRONMENT DIVISION. 


The peripheral configuration required is: 


B 2500/B 3500 or B 5500 

Card-Reader or Magnetic Tape Unit 

Card-Punch or Magnetic Tape Unit 

Printer 

Magnetic Tape Unit if SELECT...RENAMING...statement is 


present 


EXECUTION CARDS. 
A filter control card - FILCON - must be present following the 


EXECUTE and label (DATA FILTER) cards. The information can be 


entered in free-field format but must be in the following format 


O 8 ,o 


CARD TAPE NOSEQ COBOL 
ELLCON { \ SOLT | SEQ Taneeee: | one | [ Cope ] 


CARDEB 


order: 


CARD/TAPE (code(a)) signifies the choice of input medium. CARD/ 
TAPE/SOLT/CARDEB (code(Q)) signifies the choice of an output medium 
for the filtered images to be recorded on. SOLT indicates that a 
separate Symbolic Output Language Tape is to be created for each 
input source program. CARDEB indicates that the output deck will 
be punched in EBCDIC. CARD indicates that the output deck will be 
punched in BCL. 


NOSEQ/SEQ integer (code(B) ) is a sequencing option and is coded as 
follows: 


ae NOSEQ - output images retain the input sequence number 


laxvnant whan 
,excepte wher 


= Ne ee waw vase 


last number is used). 
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b. SEQ - an integer from 1 through 4 digits is required 
to follow the entry to indicate the required sequencing 
interval. An interval of from 1 through 9999 is accept- 
able. An additional increment of 100 also occurs upon 
encountering an ASSIGN TO DISK phrase in the ENVIRONMENT 
DIVISION. 


NOTE 
When neither of the above are used, output 
images will be sequenced by 10. An additional 
100 increment occurs upon encountering an ASSIGN 
TO DISK phrase in the ENVIRONMENT DIVISION. 


COBOL or COBOLL (code) ) provides the facility to ZIP (FILTER and 
compile) to the appropriate compiler. The source language program 
being filtered must contain a PROGRAM-ID entry if the ZIP feature 
is to be used. The absence of the compiler-name in the FILCON 
control card and/or the absence of the PROGRAM-ID entry in the 
source language input will disable the ZIP feature. The presence 
of the compiler entry indicates tape input (SOLT) and will cause 


an output printer listing to be created. 


Code(3) signifies that the normal FILTER code conversion may be 
altered by user specifications reflecting the characters required 
for conversion. The CODE specification card must follow the FILCON 
Control Card and must contain the character pairs to be converted. 
The characters to be converted from, must be followed with the word 
BY which is followed by the characters into which the first char- 


acter will be converted. For example, 


FILCON CARD CARD NOSEQ CODE 
CODE # BY = %® BY ([ BY ) @ BY ": By " ' By" 


A maximum of nine single-character replacement pairs can be speci- 


fied on one card. 
The IBM single quotation mark (card code 5-8) will be converted to 
the Burroughs BCL double quotation mark (card code 0-7-8) if the 
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conversion is specified in the CODE card. 


SPECIFICATION INPUT EXAMPLE. 


The order of execution can be represented as follows: 


? EXECUTE FILTER* 
? DATA FILTER 
FILCON CARD CARD 


program cards (may be more than one program) 


? END 


The above specification represents source input card images and 
source output images being placed to cards. Without specifying it, 
a printer listing will be created for input and output images, along 
with informational codes, messages, and error messages. A re- 
sequencing with an interval of 10 is indicated by the absence of 


the sequencing option. 


When the TAPE option is specified for source input, a magnetic tape 
labeled SOLT is required. This SOLT tape must be blocked with 5 
images per block (the normal output from a B 5500 or B 3500 COBOL 
compilation). The FILTER program will accept only the compiler 
created SOLT tapes, as source input, from the system it is being 


executed on. 


The output tape will be labeled SOLT and consists of blocked (5 
records per block) recorded in non-standard (BCL) mode which is 


suitable for input to the B 3500 COBOL Compiler. 


ERROR AND ADVISORY MESSAGES. 
FILCON CONTROL MISSING appearing on the console printer indicates 
that the FILTER control card, described above is missing. The 


program will automatically terminate after declaring this condition. 


*The program name 1s FiLlbER tor the B 35UU. For tne B 5 


first card must read ? EXECUTE FILTER/COBOL. 


Kot 
Q 
@ 
o 
mm 
= 

Tc 


FILCON INPUT CHOICE MISSING appearing on the console printer indi- 
cates that the FILTER input option could not be recognized. The 


program will automatically terminate after declaring this condition. 


FILCON OUTPUT CHOICE MISSING appearing on the console printer indi- 
cates that the FILTER output option could not be recognized. The 


program will automatically terminate after declaring this condition. 


FILCON CODE CHANGE CARD MISSING-RESTART or FILTER CODE CARD FORMAT 
ERROR-RESTART appearing on the console printer indicates that the 
CODE specification card contains an error. The program will auto- 


matically terminate after declaring this condition. 


CONTROL ERROR - INSELECT - FILTER appearing on the console printer 
indicates that the filter is not reading input from the proper 
input unit. The program will automatically terminate after de- 


claring this condition. 


INPUT TAPE VERIFICATION FAILED - FILTER appearing on the console 
printer (SPO), and 

INPUT TAPE VERIFICATION FAILED - FILTER appearing on the line 
printer, indicates that the tape input has failed verification as 

a blocked (5) tape and also has failed verification as an unblocked 
tape. The program will automatically terminate after declaring this 


condition. 


ILLEGAL WORD SIZE appearing on the line printer indicates that a 
word size of greater than 30 characters, or that a PICTURE char- 
acter-string greater than 160 characters has been introduced by the 
FILTER scanner. The program will continue after declaring this 


condition. 


SOURCE PROGRAM COPY STATEMENT appearing on the line printer indi- 
cates an action that the FILTER program will not accomplish. The 


program will continue after declaring this condition. 


PROGRAM LIBRARY REFERENCE appearing on the line printer indicates 


that a library reference has been made. Verification that the 
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proper library information is available for the B 3500 system 
should be made. The program will continue after declaring this 


condition. 


SELECT RENAMING LIMIT EXCEEDED appearing on the line printer in- 
dicates that more than 20 files have been selected with the RE- 
NAMING option. The additional file*+names are not entered into the 
table and their descriptions are not added to the filtered program. 


The FILTER program will continue after declaring this condition. 


CHANNEL ERROR appearing on the line printer indicates that the 
SPECIAL NAMES association specifies a line printer channel greater 


than 11. The program will continue after declaring this condition, 


SIZE STATEMENT TO INTEGER OUT OF 6-DIGIT RANGE or 

SIZE STATEMENT INTEGER OUT OF 6-DIGIT RANGE appearing on the line 
printer indicates that the source program size statement appears 
to the FILTER program to be greater than six digits. The program 


will continue after declaring this condition. 


ILLEGAL GROUP NAME appearing on the line printer indicates that 
FILLER has been used as a group-name in the source image just pre- 
ceding this message. The program will continue after declaring 


this condition. 


PICTURE UNPACKER LIMIT EXCEEDED appearing on the line printer in- 
dicates that the PICTURE shown in the source image contains a re- 
presentation of more than 150 characters in the PICTURE character- 


string. The program will continue after declaring this condition. 


PICTURE PACKER LIMIT EXCEEDED appearing on the line printer indi- 
cates that the consolidation of PICTURE characters has created a 
PICTURE character-string larger than 150 characters. The program 


will continue after declaring this condition. 


INCOMPLETE SPECIFICATION ERROR appearing on the line printer indi- 
raocedin 


1s source image did nat contain sufficient 


information for an elementary item. This can also be occasioned 
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by the use of a source program COPY statement. The program will 


continue after declaring this condition. 


OUTPUT MESSAGES AND IMAGE CODES. 

The FILTER program uses identifying codes, appearing to the left 

of the output image on the line printer, to cause advisory messages 
to appear to the right of the output image on the line printer. 


These messages and their meaning follows: 


ae A header message appears on the line printer output 
at the beginning of a FILTER run and consists of two 
lines. The first line is a copy of the FILCON control 


card, the second is an identification line of the type: 


FILTERED current-date USING system filter-date 
FILTER/COBOL PROGRAM 


Current-date appears in the form mm/dd/yy; system is 
either B 3500 or B 5500; and filter-date identifies 
the version of the FILTER program being used. 


b. No message. 


Sequence number change only. 


c. NEED MANUAL CHANGE. 
A portion of the input image is not acceptable to the 
B 3500 COBOL Compiler and the FILTER program is unable 
to accomplish a suitable correction. The programmer 


must review and modify this image. 


d. FILTER. 
A portion of the input image has contained a construct 
that is not acceptable to the B 3500 COBOL Compiler, 
but the meaning is clear and the FILTER program has made 
an adjustment to the contents so that the output image 


is acceptable. 


e. FILTER CHANGE. 
A more extensive change to the contents of the input 
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source image has been made. Usually, this code indi- 
cates that the entire source image has been replaced 


by a blank image. 


VERIFY ENTRY/CHANGE. 

The FILTER program has changed the source image in an 
established and usually acceptable manner; however, the 
programmer should verify that the modification is accept- 


able at this point in the program. 


SCAN CHKFLG ERROR. 
This console printer message indicates that a program 
switch in the scanner portion of the program is not 


being set properly (by the FILTER program). 


FILTER OUTPUT SELECT ERROR. 
This indicates that the output control switch has not 
been properly set by the FILTER program. The program 


will terminate after declaring this condition. 


NEED ACCESS MODE/KEY CLAUSE. 

This indicates that a file has been assigned to DISK. 
The control clauses appearing as part of an MD entry 
needs to be added in this ENVIRONMENT DIVISION entry. 
A sequence number increment of 100 occurs, and the 


program continues. 


LEVEL ENTRY ERROR. 
This indicates that a DATA DIVISION level number larger 


than two digits has been encountered. 


NOTE LIMIT EXCEEDED. 

This indicates that a NOTE of greater than 320 characters 
has appeared as part of a DATA DIVISION record description. 
The NOTE is truncated to 320 characters, and the program 


continues. 


1. NOTE PARAGRAPH INDICATED. 
This indicates that the NOTE sentence is the first sen- 
tence of the PROCEDURE DIVISION paragraph, and thus the 
entire paragraph is a NOTE. This message will appear 
only when filtering a B 200/B 300/B 500 program to advise 
of the difference in the COBOL rules between the B 200/ 
B 300/B 500 and the B 3500. 


REPETITIVE OPERATIONS, 

More than one source program can be filtered during one execution 
of the FILTER program. The sensing of the IDENTIFICATION DIVISION 
entry of each successive program causes the FILTER program to reset 
itself and to begin a new conversion. If SOLT has been shown in 
the FILCON parameter card, separate magnetic tapes are created for 
each program being filtered. 


A count of the number of times each output image code appears is 
provided, along with the count of the number of images receiving 


a code. These messages appear upon the printer as follows: 
CODE 1 COUNT = nnnnn CODE 2 COUNT = nnnnn CODE 3 COUNT = nnnnn etc. 


TOTAL IMAGES FLAGGED = NNNNN TOTAL IMAGES FILTERED = nnnnn 
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APPENDIX A 


COBOL RESERVED WORDS** 

*ABOUT BEGINNING CONTROL 3 
ACCEPT BLANK CONTROL 4 
ACCESS BLOCK CONTROL 6 
ACTUAL BREAK *CONTROLS 
ADD BY CONVERSION 

*ADDRESS BZ COPY 
ADVANCING CORR 
AFTER SeENCED CORRESPONDING 
ALL cl CURRENCY 
ALPHABETIC neu 
ALTER CHANNEL DATA 
ACRE CHARACTERS DATE (SPECIAL REGISTER) 
ALTERNATING CLOSE DATE-COMPILED 
AND CMP DATE-WRITTEN 
APPLY CMP-1 DCT- 2000 
ARE *CMP- 3 *DE 
AREA COBOL DECIMAL- POINT 
AREAS *CODE DECLARATIVES 
ASCENDING neon DEMAND 
ASSIGN COMMA DEPENDING 
AT COMP DESCENDING 
fate Bak *COMP-1 *DETAIL 
AUTHOR %COMP- 3 DIAL 
AUXILIARY COMPUTATIONAL DISABLE 

COMPUTATIONAL-1 DISC 
B-500 COMPUTATIONAL-3 DISCONNECT 
B- 2500 COMPUTE DISK 
B- 3500 CONFIGURATION DISPLAY 
B-9350 CONTAINS DISPLAY-UNIT 
B-9352 CONTROL DIVIDE 
BACKUP CONTROL 1 DIVISION 
BEFORE CONTROL 2 DOWN 
* These reserved words may appear in a future compiler. 
** See special instructions, page 1-10. 
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APPENDIX A (cont) 


ELSE 

ENABLE 

END 

ENDING 

END- OF- JOB 
END- TEXT 
END-TRANSIT 
ENTER 
ENVIRONMENT 
EQUAL 
EQUALS 
ERROR 
EVERY 
EXAMINE 
EXIT 


FD 
FILE 


FILE-CONTROL 


FILE-LIMIT 

FILE-LIMITS 

FILL 

FILLER 
*PFINAL 

FIRST 

FLOW 
*FOOTING 

FOR 

FORM 

FROM 


*GENERATE 
GIVING 
GO 


GREAT EK 


*GROUP 


*HEADING 
HIGH-VALUE 
HIGH-VALUES 

*HOLD 


IBM- 1030 
IBM- 1050 

ID 
IDENTIFICATION 
IF 

IGNORE 

I-0 
I-0-CONTROL 
IN 

INDEX 
INDEXED 
*¥INDICATE 
*INITIATE 
INPUT 
INPUT-OUTPUT 
INSTALLATION 
INTERROGATE 
INTO 

INVALID 

Is 


Js 
JUST 
JUSTIFIED 


KEY 


LABEL 


FLAST 


LEADING 
LEFT 
LESS 
LIBRARY 
LIMIT 
LIMITS 
*LINE 
*LINE-COUNTER 
LINES 
LISTER 
LOCK 
LOW-VALUE 
LOW-VALUES 


MEMORY 
MICR 
MICR-OCR 
MOD 

MODE 
MODULES 
MONITOR 
MOVE 
MULTIPLE 
MULTIPLY 


NEGATIVE 
NEXT 

NO 

NO-DATA 
NO-ERRORS 
NO-FORMAT 
NO-TIME- OUT 
NON-STANDARD 
NOT 


*These reserved words may appear in a future compiler. 
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NOTE 
*NUMBER 
NUMERIC 


OBJECT- COMPUTER 
oc 

OCCURS 

OCR 

OF 

OFF 

0-1 
O-L-BANKING 
OMITTED 

ON 

OPEN 
OPTIONAL 

OR 
OTHERWISE 
OUTPUT 
OVERFLOW 


PAGE 
*PAGE-COUNTER 
PC 
PERFORM 
*PF 
*PH 
PIC 
PICTURE 
*PLUS 
POLL 
POSITION 
POSITIVE 
PRINTER 
PRIORITY 


PROCEDURE 
PROCEED 
*PROCESS 
PROCESSING 
PROCESSOR 
PROGRAM-1ID 
PT- PUNCH 
PT-READER 
PUNCH 
PURGE 


QUOTE 
QUOTES 


RANDOM 
*RD 
READ 
READER 
RECORD 
RECORDING 
RECORDS 
REDEFINES 
REEL 
RELEASE 
REMAINDER 
REMARKS 
RENAMES 
REPLACING 
*REPORT 
*REPORTING 
*REPORTS 
RERUN 
*RESET 
RESERVE 
RETURN 


APPENDIX A (cont) 


REVERSED 
REWIND 
*RE 

*RH 
RIGHT 
ROUNDED 
RUN 


SAME 

SAVE 
SAVE-FACTOR 
SD 

SEARCH 
SECTION 
SECURITY 
SEEK 
SEGMENT-LIMIT 
SELECT 
SENTENCE 
SENTINEL 
SEQUENTIAL 
SET 

SIGN 

SIGNED 

SIZE 

SORT 

SORTER 


*SOURCE 


SOURCE- COMPUTER 
SPACE 

SPACES 
SPECIAL-NAMES 
SPO 

STANDARD 
START-TEXT 


*These. reserved words may appear in a future compiler. 
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APPENDIX A (cont) 


*STATUS 
STOP 
STREAM 
SUBTRACT 

*SUM 
SUPERVISOR 
SW1 
Ssw2 
SW3 
sw4 
SW5 
SW6 
SW7 
Sw8 
SY 
SYMBOLIC 
SYNC 
SYNCHRONIZED 


TALLY 
TALLYING 
TAPE 
TAPE-7 
TAPE-9 


THROUGH 
THRU 

TIME 

TIMES 

TO 
TODAYS-DATE (SPECIAL REGISTER) 
TONE 
TOUCH-TONE 
TRACE 
TRANSLATION 
TT-28 

TWX 

*TYPE 


*UNIT 
UNTIL 
UP 
UPON 
USAGE 
USASI 


VA 
VALUE 
VARYING 
VOICE 


WORKING- STORAGE 
WRITE 
WRITE-READ 
WRITE-READ-TRANS 
WRITE-TRANS- READ 


ZERO 
ZEROS 
ZEROES 
ZIP 


*These reserved words may appear in a future compiler. 
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APPENDIX B 
COBOL SYNTAX 


PRE-IDENTIFICATION DIVISION. 


MONITOR [DEPENDING] file-name ( [data-name] ... : 


F(t cammnane...} ]). | 


IDENTIFICATION DIVISION 


IDENTIFICATION DIVISION, 


[PROGRAM-ID, Any COBOL word, | 


[AUTHOR, Any entry, | 


[INSTALLATION, Any entry, ] 
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APPENDIX B (cont'd) 


IDENTIFICATION DIVISION (cont'd) 


PO 


[DATE-WRITTEN. Any entry. | 


[DATE-COMPILED. Any entry - replaced by the current date 
and time as maintained by the MCP. | 


[ SECURITY. Any entry.] 


[REMARKS. Any entry. Continuation lines must be coded 


in Area B of the coding form. | 


ENVIRONMENT DIVISION, 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


ERP 


APPENDIX B (cont'd) 


ENVIRONMENT DIVISION (cont'd) 


f B- 2500 
| souxcn-compurn. B- 3500 . | 
\ any entry 


B- 2500 
OBJECT COMPUTER. | | Bests [WITH SUPERVISOR CONTROL] 


WORDS 
MEMORY SIZE integer CHARACTERS [TIME 60] 
MODULES 


[ SEGMENT-LIMIT IS priority number | 


SPECIAL-NAMES. [ CURRENCY SIGN IS literal] 


[implementor-name IS mnemonic-name ...] 


[ DECIMAL-POINT IS COMMA ]. 


[INPUT-OUTPUT SECTION, | 
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ENVIRONMENT DIVISION (cont'd) 


FILE-CONTROL. 


SELECT [ OPTIONAL] file-name-1 ASSIGN TO hardware-name-1 


(FILE ) J Ce pee 7 
| AREA { PROCESSOR \ [FOR MULTIPLE REEL] 
is ae ee 
[ NO TRANSLATION NO BACKUP ROou 
[ TRANSLATION NON-STANDARD BACKUP —— 
NO AREA 
SAVE | RESERVE { airebarsl \ ALTERNATE rere 


FILE-LIMIT IS literal-1 THRU ” aa 
FILE-LIMITS ARE data-name-1 THROUGH am eae 
poet oe \ data-name-2 


bees \ { a \ literal-n \ | | 
| (data-name-m THROUGH | (| data-name-n) | | 


RANDOM 


| ACCESS MODE IS { SEQUENTIAL 


\ | [ACTUAL KEY IS data-name-3] 


[ PROCESSING MODE IS SEQUENTIAL] 


KEY IS 


| snmoxro \igees Ade 


\ data-name-4 [data-name-5] ve] day hs 


l 


B-4 


APPENDIX B (cont'd) 


ENVIRONMENT DIVISION (cont'd) 


Option 2: 


| FILE-CONTROL. 


SELECT sort-file-name ASSIGN TO DISK. 


L-0O-CONTROL. 


[RERUN EVERY integer-1 RECORDS OF file-name-1] ... SAME 


| { Seer} | AREA FOR file-name-2 file-name-3 [file-name-4] 


MULTIPLE FILE TAPE "“multi-file-id" CONTAINS file-name-list 


[POSITION integer-2...]... | 


{ Son 
AREA 
Ear OCR | | ALTERNATING { AGES \ 


MICR-OCR 
WITH [NO-FORMAT] [NO- prnons] | 


[ END-TRANSIT] ON file-name [... 
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APPENDIX B (cont'd) 


DATA DIVISION. 


[FILE SECTION, | 


Option 1: 


FD file-name Copy "“library-name". 


Option 2: 


STANDARD | | 


FD file-name-1 | ee epee eeacitee 


§ FILE CONTAINS integer-1 [BY integer-2] RECORDS 


; RECORDS 
| Lock CONTAINS [integer-3 TO] integer-4 { CHARACTERS 3 


| uncon CONTAINS [integer-5 TO] integer-6 CHARACTERS | 
BS ats ae OMITTED 
RECORD STANDARD 
| ame { | RECORDS ARE \ USASI 
NON-STANDARD 
ee ID ae "“literal-1" 
{ Ftur } IDENTIFICATION data-name-1 


[SAVE-FACTOR IS literal-2] | 


RECORDS ARE 


a 


| DATA { RECORD Is \ data-name-2 [data-name-3...] | 


APPENDIX B (cont'd) 


DATA DIVISION (cont'd) 


Option 3: 


SD sort-file-name COPY “library-name". 


Option 4: 


SD sort-file-name 


FILE CONTAINS integer-1 [BY integer-2] RECORDS 


RECORD CONTAINS [integer-3 TO integer-4 CHARACTERS] 


: RECORDS 
BLOCK CONTAINS [integer-5 TO] integer-6 CHARACTERS t 


RECORD IS ) wand r = 
V eeconns ARE f data-name-1 | data-name-2| | 


Option 1: 


O1 data-name-1 COPY "library-name", 
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APPENDIX B (cont'd) 


DATA DIVISION (cont'd) 


O1 FILLER 
ee petit, { data-name-1 \ [MoD] [ REDEPINES data-name-2 | 
| Sire | ] 
PIG Ts {allowable PICTURE characters) 
PICTURE J | 
BZ le 
BLANK WHEN ZERO OCCURS 
integer-1 TIMES 
integer-2 TO integer-3 TIMES 


[DEPENDING ON data-name-3] 


ASCENDING 
l{ \ ESCenDEN \ KEY IS data-name-4 [data-name-5] ... | es 
—— INDEXED BY index-name-1 [ index- -name- 2} ls 
{ DISPLAY \ 
CMP 
oo re 
[USAGE IS] COMP JUST RIGHT 
~4 COMPUTATIONAL | \ aUCTER Gs i as | 
COMPUTATIONAL-1 SS 
COMPUTATIONAL- 3 
INDEX 
VA ’ [ THRU ; 
‘eae \ TS literal-1 | { ROUGH \ literal-2 | 
: THRU - 
| literal-3 | { RSS ot \ literal-4 | See 
SYNC f 
| ) SYNCHRONIZED = | | 


APPENDIX 8B (cont'd) 


DATA DIVISION (cont'd) 


Option 3: 


“ THRU 
66 data-name-1 RENAMES data-name-2 | { tnoucn f datanane-3 |. 


Option 4: 


Shey VA P . 
88 condition-name { Fira } IS literal-1l 


, THRU 4 
[literal-2...] | { THROUGH \ literal-n... | . 


[ WORKING-STORAGE SECTION, | 


Same level number syntax as shown in the FILE SECTION except 
that 77 level numbers can be used to reflect non-contiguous 


data areas and if used, must precede all other level number 


entries, 


APPENDIX B (cont'd) 


PROCEDURE DIVISION, 
tinsichc dn earre dni Rat Radi 


mnemonic-name 


ACCEPT data-name l FROM { SPo \ | 


Option 1: 


ADD literal-1 Literal-2 
— data-name-1 data-name-2 ae 


data-~name-n [ ROUNDED] 


OTHERWISE Sede ald 
ELSE rae eIG 


any statement 


Option 2: 


Kai literal-1 | { literal-2 | 
— data-nanie-1 | data-name-2 f aot 


o 7 
TQ data-name-3 [ ROUNDED] j @ata-name-n [ROUNDED] .., | 


| ov SIZE ERROR any statement, I { OTHERWISE 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 3: 


ADD 


{ literal-1 \ { literal-2 \ [ { literal-3 


data~name-1 data-name-2 data-name-3 s 


GIVING data-name-n_ [ ROUNDED] | ox SIZE ERROR any 


OTHERWISE 
statement [ { ELSE \ statement | | 


Option 4: 


CORR 


CORRESPONDING data-name-1 TO data-name-2 [ ROUNDED] 


ADD { 


| on SIZE ERROR any statement arse \ statement | | 


ALTER procedure-name-1l TO [| PROCEED TO | procedure-name-2 


| procedure-nane-3 [TO PROCEED TO] procedure-name-4 ... | 


LOCK 


PURGE 
CLOSE file-name-1 [ REEL] aRLEE ce 


NO REWIND 


[file-name-2...] 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


i ae | 


( data-name-2 ] 
COMPUTE data-name-1 [ROUNDED] = eee ee 
arithmetic expression 


| os SIZE ERROR any statement Pes \ statement | | 


Option 1: 


COPY "library-name". 


Option 2: 


COPY "library-name" 


word-1 { word-2 
data-name-1 data-name-2 


S ‘ 


| nerLactne 


| § word-3 \ word-4 
t data-name-3 data-name-4 


XN } 


. literal-1 literal-2 
» 
ESE eee \ Ree eiceae } ae 


[ uroy {$22 \] 


mnemonic-name 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 1: 


DIVIDE [MOD] { 


literal-1 \ 


data-name-1 INTO data-name-2 [ROUNDED] 


ox SIZE ERROR any statement ee \ statement ] 


Option 2: 


literal-1 BY literal-2 
oe [MoD] { cee aaa { INTO \ es \ 


GIVING data-name-3 [ ROUNDED] 


REMAINDER data-name-4 (RounpED] | 


ON SIZE ERROR any statement [ ose \ vtatenent 


END-OF-JOB. 


ENTER | SYMBOLIC \. 


COBOL, 
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APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


EXAMINE data-name 


ALL . . 
TALLYING ’ LEADING { Cay | REPLACING BY { Soe | 
UNTIL FIRST Se ocrceren ata-name- 


SEL literal-3 \ a etree! \ 


data-name-3 data-name-4 


REPLACING LEADING { 
[UNTIL] FIRST 


Option 1: 


SS ee 


non-numeric literal-1 
FILL data-name-1 INTO { ee \ 


[ PROCEED TO paragraph-name | | 


a ener | 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 2: 


FILL data-name-3 FROM { 


non-numeric literal-2 \ 
data-name-4 


[ PROCEED TO paragraph-name] 


Option 1: 


GO TO [ procedure-name]. 


GO TO procedure-name-1 procedure-name-2 [ procedure-name-3...] 


DEPENDING ON data-name. 


Option 1: 


IF condition-1l statement-1 
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APPENDIX 8 (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 2: 


IF condition 


{ statement-1 \ I{ OTHERWISE \ { statement-2 } 


NEXT SENTENCE 


NEXT SENTENCE ELSE 


Option 3: 


( literal-1l 
IF data-name-1 Is [ NoT] 
cat enmenae expression-1 
GREATER THAN 


EQUALS 


literal-2 
data-name-2 


arithmetic expression-2 


Option 4: 


a ZERO 
ata-name \ ts [NOT] POSITIVE 
| NEGATIVE 


arithmetic expression 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 5: 


IF data-name IS [NOT] { 


NUMERIC 
ALPHABETIC 


Option 6: 


IF [NoT } condition-name 


Option 1: 


literal-1 
data-name-1 


\ TO data-name-2 [data-name-3...] 


Option 2: 


CORR \ 


ets sa- “ es =2 
| CORRESPONDING f data-name-1 TO data-name-2 


B17 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


MULTIPLY BY 


data-name-2 


literal-1 \ 
data-name-1 


epemena \ 


4 


[GIVING data-name-3] [ROUNDED] E SIZE ERROR any 


OTHERWISE 
statement Fy erse \ statement 1 


label. NOTE any comment. 


Option 2 - Paragraph NOTE: 


NOTE. any comment. 


Option 3 - Sentence NOTE: 


NOTE any comment. 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


OPEN 


WITH LOCK [ ACCESS ] 
INPUT file-name-1 REVERSED [ file-name-2... | 


WITH NO REWIND 


OUTPUT file-name-3 [ WITH NO REWIND | [ file-name-4 eee! | 


INPUT-OUTPUT 
I-O 


\ file-name-5 | wer LOCK [ ACCESS | | 


[ file-name-6...] | 


O-I file-name-7 [ file-name-8 ae | 


Option 1: 


THRU 


THROUGH } procedure-name-2 | 


PERFORM procedure-name-1 | { 


Option 2: 


THRU 


THRU : -2 | 
THROUGH \ procedure-name 


PERFORM procedure-name-1 | { 


integer-1l \ 4 
Chen f LIMES 
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APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 3: 


PERFORM procedure-name-1] {715 


THROUGH 


UNTIL condition-1 


Option 4: 


\ procedure-name-2 | 


PERFORM procedure-name-1 | { TERY 


index-name-1 


VARYING Vee 


\ FROM { 


data-name-3 
numeric-literal-2 


UNTIL 


THROUGH 


index-name-2 
data-name-2 
numeric-literal-1 


\ UNTIL condition-1 | AFTER { 


\ procedure-name-2 | 


BY 


index-name-3 
data~name-4 


' index-name-4 | 
FROM data-name-5 BY i Gates ate So } | 
camer : ; = numeric-literal-4 i 
(| numeric-literal-3 | . | 
UNTIL condition-2 AFTER ae ee eame. > FROM 
SS — data-name-7 = 
index-name-6 i: 
data-name-8 BY { Gaba Rasiee 7 \ 
: : — numeric-literal-6 
numeric-literal-5 


condition-3 | 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


WITH LOCK AT END 
READ file-name RECORD are care ai { eae \ 


INVALID KEY 


any imperative statement Ei ooueeltst \ any statement 1] 


RELEASE record-name [FROM data-name] 


RETURN file-name RECORD [INTO data-name] 


[AT END any statement | 


Option 1: 


SEARCH data-name-1 | varyinc § imdex-name-1 
as data-name-2 


| AT END imperative statement-1 | 


Sade Kin, imperative statement-2 
WHEN condition-1 { NEXT SENTENCE \ 


a ee imperative statement-3 
WHEN condition-2 { NEXT SENTENCE eles 
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APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


SEARCH ALL data-name-3 [AT END imperative statement-4]| 


WHEN condition-3 { 


imperative statement-5 
NEXT SENTENCE 


SEEK file-name RECORD [WITH KEY CONVERSION] 


Option i: 


index-name-1 index-name-2 
data-name-1 data-name-2 ee 


j index-name-3 \ 
data-name-3 
{ literal-1 


Option 2: 


SET index-name-4 [index-name-5 ...] 


UP BY data-name-4 
literal-2 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


SORT file-name-1l 


ON ERROR | 


DESCENDING 
ON ASCENDING ; KEY data-name-1 [ data-name- 2 ee “| 


DESCENDING 
[os { ASCENDING ; KEY data-name-3 faata-nanents..J | 


F THRU ‘ 
INPUT PROCEDURE IS section-name-1 | { tiizouon | #e°tion-name-2 


PURGE 
USING file-name-2 LOCK 


RELEASE 


OUTPUT PROCEDURE IS section-name-3 f oo,  } Section-name-t | 
—_—- ‘(| THROUGH | 


GIVING rite-nane-3|{ ER oo} | 


RUN 
literal 
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APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 1: 


literal-1 literal-2 
aUBINect Pe ecoicame mn \ Ree eae \ a aoe 


data-name-m [ ROUNDED | [ aata-name-n [ ROUNDED | sas 


OTHERWISE 
E SIZE ERROR any statement I ELSE \ seatoment | 


Option 2: 


: : literal-1 literal-2 \ 
SUBTRACT nua et \ [4 data-name-2 f se | En 


ee \ 


GIVING data-name-n [ ROUNDED] 
data~name-m to Fat act ee 


§ OTHERWISE 


ON SIZE ERROR any statement [ Sepaee statement | ] | 
ae ee L | ELSE ai 


Option 3: 


CORR \ 


CORRESPONDING data-name-1l FROM data-name-2 


OTHERWISE \ 


[ ROUNDED } | on oa ERROR any Sau mort { ELSE 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


yal 
(3 


er, 


UNLOCK record-name 


Option 1: 


file-name.,. 
INPUT 
OUTPUT 

USE AFTER STANDARD ERROR PROCEDURE ON INPUT-OUTPUT 
1-0 
O-T 


Option 2: 


a \ STANDARD 


ENDING 
BEFORE 


BEGINNING 


LABEL PROCEDURE ON 


INPUT 


‘file-name... 
OUTPUT 
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APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 3: 


ee END OF PAGE 


POR KEY CONVERSION \ ON file-name-L [file-name-2...]. 


Option 4: 


USE ON STALEMATE ON file-~name-}3. 


literal 
data-name 


Option 1: 
Dee | 


WRITE record-name [FROM data-name-1] 


BEFORE | [TO CHANNEL eer 
6 ERROR 
— AUXILIARY 


: i 
( integer-1 \ ] | | 
4 LINES 
\ SEROR \ ADVANCING eae f 


B- 26 


APPENDIX B (cont'd) 


PROCEDURE DIVISION (cont'd) 


Option 2: 


WITH LOCK 
FROM data-name 


WRITE record-name { 


INVALID KEY any statement Ki | statement | | 


ZIP data-name 
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APPENDIX B (cont'd) 
DATA COMMUNICATIONS 


PROCEDURE DIVISION (cont'd) 


ACCEPT data-name FROM { 


literal \ 


data-name-1 


CLOSE data-conm-fi1e-name[{ ¥57% son Tau ] 


NO DISCONNECT 


( BREAK 
DISABLE file-name | ON ) NO=DArA 


DISCONNECT 


: fliteral-1 literal-2 | 
DISPLAY \ data-name-1 f data~name-2 f io 


UPON 


literal-3 | 
data-name-3 f 


ENABLE file-name [ PROCEED TO paragraph-name | 
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APPENDIX B (cont'd) 


. DATA COMMUNICATIONS 
PROCEDURE DIVISION (cont'd) 


PILL file-name [NO-TIME-OUT] [START-TEXT] [DIAL] [ END-TEXT] 


WRITE 

READ 

WRITE- READ 
WRITE-TRANS-READ 
WRITE-READ-TRANS 


[POLL] [VOICE] [TONE] [STREAM] WITH 


[ PROCEED TO paragraph-name | 


INTERROGATE [END-TEXT] file-name INTO data-name 


READ file-name [INTO record-name| [NO-TIME-OUT] [START-TEXT] 


7 [STREAM] [DIAL] [AT END any statement] 
bs \ any statement | 


Option 1: 


| WAIT | 


APPENDIX B (cont'd) 
DATA COMMUNICATIONS 


PROCEDURE DIVISION (cont'd) 


Option 2: 


WAIT UNTIL Ye i 


data-name 


WRITE record-name-~1 [FROM record-name-2] [END-TEXT] 


[START-TEXT] [STREAM] [DIAL] [VOICE] [TONE] [AT END I 


any statement | [eee i any statement | 


WRITE-READ record-name-1 [FROM record-name-2] [NO-TIME-OUT] 


[ END-TEXT] [START-TEXT] [VOICE] [DIAL] [TONE] [POLL] [ STREAM | 


[AT END any statement | 


WRITE-READ-TRANS record-name-1 [ FROM record-name- 2 | 


[NO-TIME-OUT] [DIAL] [AT END any statement] i 
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APPENDIX B (cont'd) 
DATA COMMUNICATIONS 


PROCEDURE DIVISION (cont'd) 


WRITE-TRANS-READ record-name-1 [FROM record-name-2} 


[NO-TIME-OUT] [DIAL] [AT END any statement] 


APPENDIX B (cont'd) 
READER SORTER AND LISTER 


PROCEDURE DIVISION (cont'd) 


CONTROL 4 data-name ON file-name 


CONTROL 6 ON file-name 


file-name-1 [file-name-2 ...] 


[ FLow | file-name procedure-name-1, procedure-name-2 


SELECT data-name ON file-name INVALID procedure-name 
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APPENDIX B (cont'd) 
READER SORTER AND LISTER 


PROCEDURE DIVISION (cont'd) 


SORTER file-name 


= 
2 
e 
2 


CONTROL file-name NOT-READY procedure-name 


ENABLE file-name 


| WRITE record-name NOT-READY procedure-name | 


APPENDIX C 
EBCDIC,ASCII,AND BCL REFERENCE TABLES 


The charts reflected in this appendix define the EBCDIC, ASCII, 
and BCL code specifications as implemented by the Burroughs Cor- 
poration for the B 2500/B 3500 systems. 


Table C-1 and table C-2 show the USASCITI X3.4 - 1963 and USASCII 
X3.4 - 1967 code sets respectively. The major differences in the 
code sets are in columns O and 1 (control characters) and columns 


6 and 7 (lower case characters). 


Table C-3 is an explanation of all characters and their functions 

or meanings for both the 1963 and 1967 versions of the USASCIT 
character set. In this presentation, the first entry is the column / 
row notation in respect to tables C-1 and C-2. The second item 

is the character as it appears in the two tables, the 1963 version 
appearing at the top and the 1967 version on the bottom. Following 
the characters is the name and function of the character, if in 


fact it is not evident. 


When reading table C-1 and C-2, and using columns and rows; the 
standard 7-bit character representation, with be he high-order 


bit and by the low-order bit, is shown below: 


EXAMPLE: 


The bit representation for the character K positioned in 
column 4, row 11 is: 

by be be. by b. by by 

+ 0 0 1 0 1 21 


The decimal equivalent of the binary number formed by bits Dy, be, 
and be, collectively, forms the column number, and the decimal 


equivalent of the binary number formed by bits bys be, b and 


Pas 
b> collectively, forms the row number. 


Table C-4 reflects the Extended Binary Coded Decimal Interchange 
Code (EBCDIC) and is read exactly as tables C-1 and C-2. 


APPENDIX C (cont'd) 


Table C-1 
USASCII X3.4-1963 


000s 
fofofojiy ot pot fa fT at | 
a ee 


Table C-2 
USASCII X3.4-1967 


pepe Pe Pepys 
Meee LECCE 


o1o };o]0 


AC OC 
fofofijoj 2 [sx [oce | * | 2 Ee 


ae EO 
£7 COSC 1 Ge 0 J OG GD 
———————————EEe 
fojrjiftoy 6 [ack {svn | & | o6 foe tv jet 
ett pa tee fp ee 
a ee ee ee ee 


APPENDIX C (cont'd) 


Table C-3 
1963, 1967 USASCII Characters 


USASCII 
X34 - 1963 
USASCIT 
X304 - 


NAME/FUNCTION 


Null: The all zeros character which may serve 
to accomplish time fill and media fiil. 


Start of Message: It is used in conjunction 
with EOA, EOM, and EOT for messages on tapes 
where the message is to be sent automatically. 


Start of Heading: A communication control 
character used at the beginning of a sequence 
of characters which constitute a machine- 
sensible address or routing information. Such 
a sequence is referred to as the "heading." 

An STX character has the effect of terminating 
a heading. 


End of Address: This character, together with 
SOM, will be used to define the section of per- 
forated tape in which the call-directing codes 
of the addressee are contained. 


Start of Text: A communication control char- 
acter which precedes a sequence of characters 
that are to be treated as an entity and entire- 
ly transmitted through to the ultimate destina- 
tion. Such a sequence is referred to as "text." 
STX may be used to terminate a sequence of char- 
acters started by SOH. 


End of Message: It may be used to separate 
individual messages which are sent in sequence 
on a single transmission between two stations 
(see SOM). 


End of Text: A communication control character 
used to terminate a sequence of characters 
started with STX and transmitted as an entity. 


End of Transmission: A communication control 
character used: to indicate the conclusion of a 
transmission which may have contained one or more 
texts and any associated headings. 


C-3 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


CHARACTER 


COLUMN # USASCIT 
X3. 4 m3 1963 


NAME/FUNCTION 


ROW | USASCII 
X3.4 - 1967 


Enquiry: A communication control character used 
in data communication systems as a request for a | 
response from a remote station. It may be used 
as a "Who Are You" (WRU) to obtain identifica- 
tion, or may be used to obtain station status, 

or both. 


WRU 


ENQ 


Are Yous: Use of this character for confirmation 
type of answer back has been discontinued until 
a more suitable arrangement can be devised, 


Acknowledges: A communication control character 
transmitted by a receiver as an affirmative re- 
isponse to a sender, 


| BELL Bell: A character for use when there is a need 
O/7 | to call for human attention. It may control 

BELL alarm or attention devices, 

fre | Backspace: A format effector that controls the 
0/8 movement of the printing mechanism one print 

Ins | position backward on the same print line, 


Horizontal Tabulation: A format effector that 
controls the movement of the printing mechanism 
to the next in a series of predetermined posi- 
tions along the print line, (Applicable also 
to the skip function on punched cards, ) 


Line Feed: A format effector that controls the 
movement of the paper one line at a time, 


Vertical Tabulation: A format effector that 
controls the movement of paper to the next ina 
series of predetermined print lines. 


4 Form Feeds: A format effector that controls the 
| movement of the printing pnosition to the firet 


es = predetermined printing line on the next form or 
| ae 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


GHARACTER 


COLUMN JP USASCI 1 


XB. = 1963 
NAME/FUNCT LON 
ROW | USASC HI 
X3.4 = L967 


Carriage Return: A format effector that cone- 
trols the movement of the print mechanism to the 
first print position on the same print Line. 


Shift Outs A control character indicating that 
the code, combinations that follow shall be inter- 
preted as outside of the character set of the 
standard code table until a Shift In character is 
reached. 


Shift In: A control character indicating that 
the code combinations that foljlow shall be inter- 
preted according to the standard code table. 


Data Link Escape: A communication control char- 
acter that will change the meaning of a limited 
number of contiguotsly Collowing characters. It 
is used exclusively to provide supplementary 
controls in data communication networks, 


Device Controls: DC, (X-ON) turns the tape 
reader ON and DC, (X-OFF) turns the tape reader 
OFF in Models 33°and 35. DC, and DC, can be 
used as PUNCH-ON and PUNCH-OFF controls. 


Device Controls: Characters for the control of 
ancitlary devices associated with data process- 
ing or telecommunication systems, more especially 
iswitching devices ON or OFF, (Tt a single "stop" 
control is required to interrupt or turn of f 
ancillary devices, DC is the preferred assign- 
ment. 


Negative Acknowledge: A communication contro! 
character transmitted by a receiver as a negative 
response to the sender. 


Synchronous Tdle: A communication control char- 


SYN acter used by a sychronous transmission system 
1/6 in the absence of any other character to prowide 
SYN a signal from which synchronism may be achieved 


or retained. 


C-5 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


CHARACTER 


COLUMN [ISASCITI f 


X3.4 - 1963 NAME /FUNCTION 
ROW| USASCIIL 


Logical End of Media: Used to indicate the 
end of usable information, as in "End-of-Card"., 


ETB End of Transmission Biock: <A communication 
1/7 control character used to indicate the end of 
a block of data for communication purposes. 
ETB is used for blocking data where the block 
structure is not necessarily related to the 
processing format. 


Information Separators, 
CAN Cancel: <A control character used to indi- 
cate that the data with which it is sent is 
| in error or is to be disregarded. 
Sl 


Information Separators. 


EM End of Mediums: A control character associ- 
ated with the sent data which may be used to 
identify the physical end of the medium, or 

1/9 the end of the used, or wanted, portion of 

information recorded on a medium. (The posi- 

tion of this character does not necessarily 

i correspond to the physical end of the medium). 


RRC er 
a ena 


82 Information Separator, 


1/10 SUB Substitute: <A character that may be sub- 
stituted for a character which is determined 
to be invalid or in error. 


Information Separator. 


ESC Escape: <A control character intended to 
i 1/11 provide code extension (supplementary char- 
} 1 acters) in general information interchange. 
| The Escape character itself is a prefix af- 
| fecting the interpretation of a limited num- 
ber of contiguously following characters. 


1) 
{ 
ON 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


FY CHARACTER 


COLUMN |USASCII 
X3.4 - 1963 

ROW] USASCII 
X3.4 - 1967 


sh 
S5 
S6 
S7 


FS 
GS 
RS 
US 


NAME /FUNCTION 


Information Separators, 


File Separator, Group Separator, Record Sep- 
arator, and Unit Separator: These inform- 
ation separators may be used within data in 
optional fashion, except that their hierar- 
chical relationship shall be: FS is the most 
inclusive, then GS, then RS, and US is least 
inclusive. (The content and length of a File, 
Group, Record or Unit are not specified). 


Space: A normally non-printing graphic 
character used to separate words. It is also 
a format effector which controls the movement 
of the printing position, one printing posi- 
tion forward. 


Exclamation Point. 


Quotation Marks (Diaeresis), 


Number Sign. 
2/5 f reer 
, 


Apostrophe (Closing Single Quotation Mark; 
Acute Accent), 


Opening Parenthesis, 


C-7 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


COLUMN 


~— | > a 
we) ep) 
° > 
> Ww 

Q 
| 4 
aa 
ee 
Ne} 
ON 
~J 


: 


X3.4 - 1963 | 
USASCITLI 


RoW NAME/FUNCTION 


NK 


2/9 


Closing Parenthesis, 


‘J 
fa 
c 
W 


Comma (Cedilia), 


Period (Decimal Point), 


nN the) nN tae) 
™ ™ ™ ™ 
= = rm bs 
aad Lo nN be 


Nw 
a 
be 
nt 


Figure Zero, 


lo 

™ 

jo) 
H/F 


is 


Figure Three, 


Figure Five 


™ 


i) wo WW 
™ 
nN js 


3 


lo 
™“ 
—_ 


3/5 


6 


Figure Six, 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


CHARACTER 
COLUMN, | USASCII 
X3.4 - 1963 E/FUNCTION 
Row] USASCII NAME/FUN 
X3.4 = 1967 
7 


3/ 


N 


Figure Sevens 


Figure Eight, 


Figure Nine, 


3/8 


Colon. 


Leo 

™ 
= 
(oe) 


Semicolon, 


fesse 
Greater Than. 


Question Mark, 


Ww 
i 
e 
nN 
Hi 
| 
! 


Commercial At, 


ie) 
G 

a 

Ww 


Upper Case Letter A, 


Upper Case Letter B, 


Upper Case Letter C, 


c-9 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


COLUMN, }| USASCII 
X3.4 - 1963 NAME /FUNCTION 
ROW | USASCII 


X3v4-s 


_ 
\o 
On 
~J 


Letter 


in 
- 
— 


~ 
u 
Hii 


~ 
ma 


Upper Case Letter E, 


Letter 


4/8 


4/9 


Letter 


a oa 
™ ™ 
bes tH 
bh 2) 


iil TT TTYTF 


= 
™~ 


4 
a 

f4 

ro 


Upper Case Letter L» 


Upper Case Letter M, 


Upper Case Letter N, 


Upper Case Letter 0, 


Upper Case Letter Q. 


C-10 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


CHARACTER 
COLUMN USASCII 


X3.4 = 1963 
ROW ee NAME /FUNCTION 
X3.4 - pe 


Fn |e Case Letter R, 


lif 


ae Upper Case Letter T 
—— 

5/6 Upper Case Letter V. 
Vv 

5/7 Upper Case Letter W, 

5/8 Upper Case Letter X, 
Xx 

5/9 Upper Case Letter Y, 

5/10 Upper Case Letter Z, 


Opening Bracket, 


Reverse Slant, 


Closing Bracket, 


Exponentiation or Up Arrow- 


Circumflex, 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


CHARACTER 


COLUMN, [USASCII 1 - Se 
X3.4 = 1 
3 963 NAME /FUNCTION 
ROW JUSASCII 
X3.4 - 1967 : 


Ep ndertin, 


6/0 Unassigned. 
ae Accent (Opening Single Quotation Mark). : 
Fey = | eer Unassigned. 
ja | tower Case Letter a OOOOC~—“~S~S 
cj2 [| Unassigned SCS 
ee Lower Case Letter b, 
6/3 Unassigned, 
Lower Case Letter c, 
6/4 Unassigned, 


Lower Case Letter d. 


2, as cr 


Lower Case Letter e, 


a ene (oro ae 
Lower Case Letter f, 


6/7 [| __j Unassigned. 
Lower Case Letter g, 
/8 


6 


H | Unassigned. 


Lower Case Letter h, 


Unassigned, 


i Lower Case Letter i, 


3 Lower Case Letter j, 


Unassigned, 


Lower Case Letter k, 


| 
[imastenea, SS OSOSCSCSCSOSCSCSCSCS 
Lower Case Letter 1, 


| Unassigned, 


Til Lower Case Letter m-: 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


COLUMN, | USASCIT 
X3.4 - 1963 

ROW] USASCIT 
X3.4 - 1967 


CHARACTER 


NAME /FUNCTION 


SS (0 


ON 
™~ 
am 
= 


[—idumassigned——SOSCSCSCSCCS 


Unassigned. 


7 


On 
™~ 
= 
nt 


i 


~ 
fH 


Lower Case Letter r 


O 
2 
3 


Unassigned , 


ls [Lower Case Letter s, 


7/4 


Lower Case Letter t, 
Unassigned, 


Lower Case Letter u., 


Unassigned. 
Lower Case Letter v, 
Unassigned, 


Lower Case Letter Ww, 


/ 
jf 
/ 
if 
/ 
/ 
/ 


n 
r 
t 
u 
Vv 
Ww 

Unassigned. 
x 


Lower Case Letter x, 


Unassigned. 


ve 
7 
7/5 
7/6 
7/7 
7/8 
7/9 


¥y Lower Case Letter y, 


Unassigned, 


iz [Lower Case Letter z, 


Unassigned, 


~ ~ 
MAD SAY 
= = 
- (o) 


APPENDIX C (cont'd) 


Table C-3 (cont) 
1963, 1967 USASCII Characters 


CHARACTER 


COLUMN |USASCIT 
X3.4 - 1963 


~ NAME/FUNCTION 
ROWJUSASCIT / 


wa kKnowledzve: A communication control char- 
Facter transmitted by a receiver as: an affirm- 
f ative response to a sender. 


al line. 


Mode shift character used to indicate a 
departure from the standard set of basic 
characters; e.g.; used to shift from upper 
to lower case letters. 


Delete: This character is used primarily 

to "erase" or "obliterate" erroneous or un- 
wanted characters in perforated tape. (In 
the aetrict sense, DEL is not a control char- 
acter ) . 


GT-9 


TABLE C-4 


B 2500/B 3500 
EXTENDED BINARY CODED DECIMAL INTERCHANGE CODES (EBCDIC) 


CARD, 9- TRACK MAGNETIC TAPE, DISK AND MEMORY* FORMATS 


NUL DLE 
woe. = | 1241-981 fete 12-11-0961 | BLANK 


STX 
129-2 


12-11-9-1 


12-11-9-2 


Ps 
8 


m 
a 
Pd 
i~] 
a 
w 


12-0-9-3 12-11-9-3 


12-11-94 


12-11-95 


BS ETB 
11-96 096 


12-11-9-7 


xs] 
fess] 
ieee | 
| =| 
al 
3 
fo 
m 
$ 
en 
4 


es 
Pete | 
[282 
aa 
Py : 
> 
Z 
Fie | 
m 
re) 
= 


es 
| 2 
eee] 
3 
= 
e e 
aid 


12-8-2 


5: 


i) 


(P4402) D XIGNAddV 


APPENDIX C (cont'd) 


STX 


ETX 


FF 


CR 


st 


DLE 


oc 


D¢2 


0¢3 
DC4 


NL 


BS 


TABLE C-4 (cont'd) 


CONTROL AND SPECIAL CODES 


NULL - The ail-zeros character which may serve to accomplish time fill 
and media fill. 


START OF HEADING - A communication control charecter used ct the 
beginning of a sequence of characters which constitutes a machine- 
sensible address or routing information. Such a sequence is referred to as 
the “heading.” An STX character has the effect of terminating a heading. 


START OF TEXT - A communication control character which precedes a 
sequence of characters that is to be treated as an entity and entirely 
transmitted through fo the ultimete destination. Such a sequence is 
referred to as "TEXT." STX may be used to terminate a sequence of 
characters started by SOH, 


END OF TEXT ~ A communication contro character used to terminate a 
sequence of characters started with STX and transmitted as an entity. 


HORIZONTAL TABULATION - A format effector which controls the 
movement of the printing position to the next in a series of predetermined 
positions along the printing line. (Applicable also to display devices and 
the SKIP function on punched cards.) 


DELETE - This character is used primarily to "ERASE" or "OBLITERATE" 
erroneous or unwanted characters in perforated tape. (In the strict sense, 
DEL is not a control character.) 


VERTICAL TABULATION - A format effector which controls the movement 
of the printing position to the next in a series of predetermined printing 
lines. (Applicable also to display devices.) 


FORM FEED - A format effector which controls the movement of the 
printing position to the first predetermined printing line on the next form 
or page. (Applicable also to display devices.) 


CARRIAGE RETURN - A format effector which controls the movement of the 
printing position to the first printing position on the same printing tine. 
(Applicable also to display devices.) 


SHIFT OUT - A control character indicating that the code combinations 
which follow shall be interpreted os outside of the character sat of the 
Standard Code Table until a shift in choracter is reached. 


SHIFT IN - A control character indicating that the code combinations which 
follow shall be interpreted according to the Standard Code Table. 


DATA LINK ESCAPE - A communication control character which will change 
the meaning of a limited number of contiguously following characters. It is 
used exclusively to provide supplementary controls in dato communication 
networks, 


DEVICE CONTROLS ~ Characters for the control of ancitlary devices 
associated with Data Processing or Telecommunication Systems, more 
especially switching devices "ON" or "OFF," (IF a single "STOP" contra! 
is required to interrupt or turn off ancillary devices, DC4 is the preferred 
assignment.) 


NEW LINE: - A format effector which causes both Carriage Return and 
Line Feed. 


BACKSPACE ~ A format effector which controls the movement of the 
Printing position one printing space backward on the same printing line. 
(Applicable also to display devices.) 


CANCEL - A control character used to indicate that the data with which 
it is sent is in error or is to be disregarded. 


EM 


Fs 
SS 
RS 
US 


LF 


ETB 


Esc 


ENQ 


ACK 


BEL 


SYN 


EOT 


SUB 


SP 


PZ 
MZ 


END OF MEDIUM - A centrol character associated with the sent data 
which may be used to identify the physical end of the medium, or the end 
of the used, or wonted, Portion of information recorded on a medium. 
(The position of this cheracter does not necessarily correspond to the 
physical end of the medium.) 


FILE SEPARATOR 
GROUP SEPARATOR 


These information seporators may be used within 
data in optional fashion, except that their 
RECORD SEPARATOR { hierarchical relationship shall be: FS is the most 
UNIT SEPARATOR inclusive, then GS, then RS, and US is least 
inclusive. (The content and length of a File, Group, Record, or Unit are 
not specified.) 


LINE FEED - A format effector which controls the movement of the printing 
position to the next printing line. (Applicable also to display devices.) 


END OF TRANSMISSION BLOCK - A communication control choracter 

used to indicate the end of a block of data for communication purposes. 

ETB is used for blocking data where the block structure is not necessarily 
related to the processing format. 


ESCAPE - A control character intended to Provide code extension 
(supplementary characters) in General Information Interchange. The 
escape character itself is a prefix affecting the interpretation of a limited 
number of contiguously following characters. 


ENQUIRY - A communication control character used in Data Communication 

Systems as a request for a response from a Remote Station. It may be used as 

a "WHO YOU ARE" (WRU) to obtain identification, or may be used to obtain 
Station Status, or both. 


ACKNOWLEDGE - A communication contro! character transmitted 
by a receiver as an affirmative response to a sender. 


BELL - A character for use when there is a need to call for human attention. 
It may control alarm or attention devices. 


SYNCHRONOUS IDLE - A communication control character used bya 
synchronous transmission system in the absence of any other character to 
provide @ signal from which synchronism may be achieved or retained. 


END OF TRANSMISSION - A communication centro! character used to 
indicate the conclusion of a transmission, which may have contained one 
or more texts and any associated headings. 


NEGATIVE ACKNOWLEDGE - A communication control character 
transmitted by a receiver as a negative response to the sender. 


SUBSTITUTE - A character that may be substituted for o character which 
is determined to be invalid or in error. 


SPACE ~ A normally nen-printing graphic character used to separate 
words. It is also a format effector which controls the movement of the 
printing position, one printing position forward. (Applicable also to 
display devices.) 


OTHER CODES 
PLUS ZERO CodeQ1001110, is never obtained from a BCL pius 
MINUS ZERO sign; plus zero (PZ) code 1100 0000 prints as a plus 


sign. Minus zero (MZ) prints as an !. Choice of graphic for PZ and 
MZ may vary from system to system. The choice of styling (1 or I) for 
graphic code 0100 1111 may also vary from system to system. 


APPENDIX C (cont'd) 


Table C-5 reflects the internal EBCDIC structure in its sequential 
code arrangement for B 2500/B 3500 Systems, plus the USASCII and BCL 


magnetic tape coding structures. 


The two methods of creating the two-character codes representing 


these structures are broken down as follows: 


a. 8-bit (byte) character code: 


Decimal Equivalent Binary Decimal Equivalent 

6) 0000 0000 0 

1 0001 0001 1 

2 0010 0010 2 

3 0011 0011 3 

Converted 9 100i 1001 9 Converted 

A 10 1010 1010 10 A 
B 1011 1011 11 B 
Cc 1100 1100 |Undigit 12 C 
D 1101 1101 Character /13 D 
E 1110 1110 14 E 
F 15 1111 1111 15 F 


Example: 


If a memory dump reflects A3, the internal code would be 
1010 0011. The highest sequential code is FF and the 
internal code is 1111 1111. 


b. 6=bit (byte) character code: 


Decimal Binary Decimal 
6) 0O oOO000 O 
1 01 0100 4 
2 10 1001 9 Converted 
3 1i 1010 10 A 
O 0O 1100 12 Cc 
2 10 1111 15 F 
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APPENDIX C (cont'd) 


c. The graphics appearing in the BCL column reflect differ- 
ences between EBCDIC and BCL and those pertinent ones 
left blank reflect that the graphics of each are the 
same. This method holds true for the card code column 


of the BCL description also. 


NOTE 
There are only 64 unique 6-bit BCL tape 
codes. Therefore, where no BCL tape 
code is indicated in the table, there 


will be no BCL graphic character. 


Table C-5 
Internal EBCDIC Characters 


8-Bit 8-Bit 


Internal Graphic | Card Code 6-Bit 


Tape Code | 
| | 


00 12-0-9 

Ol SOH 12-9-1 81 H 1 

02 STX 12-9-2 82 

03 ETX 12-9-3 83 

o4 12-9-4 84 

05 HT 12-9-5 85 

06 12-9-6 86 | 

07 DEL T26Oa'7 87 

08 12-9-8 88 | 
| 09 12.9-8-=1 89 

OA T229-B8=2 8A 

OB VT 12-9-8-3 8B 

oc FF 12-9-8-4 8C 

OD CR 12-9-8-5 8D 

OE SO 12-9-8-6 8E 

OF ST 12-9-8-7 8F 


APPENDIX C (cont'd) 
Table C-5 (cont) 


Internal EBCDIC Characters 


8-~Bit i 
: 6-Bit Card 
Internal Tape Code Graphic Code 


10 DLE 12-11-9-8-1 90 
11 DC1 11-9-1 91 
12 DC2 11-9-2 92 
13 DC3 11-9-3 93 
14 11-9-4 94 
15 NL 11-9-5 95 
16 BS 11-9-6 96 
17 11-9-7 97 
18 CAN T1-9-8 98 
19 EM 11-9-8-1 99 
1A 11-9-8-2 9A 
1B 11-9-8-3 9B 
1Cc FS 11-9-8-4 9C 
1D GS 11-9-8-5 9D 
1E RS 11-9-8-6 9E 
1F US 11-9-8-7 OF 
20 11-0-9-8- 

21 0-9-1 

22 0-9-2 

23 0-9-3 

24 0-9-4 

25 LF 0-9-5 

26 ETB 0-9-6 

27 ESC 0-9-7 

28 0-9-8 

29 0-9-8-1 

2A 0-9-8-2 

2B 0-9-8-3 

aC 0-9-8-4 

2D ENQ 0-9-8-5 

2E ACK 0-9-8-6 

2F BEL 0-9-8-7 

30 12-11-0-9-8- 

31 9-1 

32 SYN 9-2 

33 9-3 

34 9-4 

35 9-5 

36 9-6 

37 EOT 9-7 

38 9-8 

39 9-8-1 

3A 9-8-2 

3B 9-8-3 

3c Dc4 9-8-4 
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APPENDIX C (cont'd) 
Table C-5 (cont) 


Internal EBCDIC Characters 


EBCDIC USASCIT BCL 


8-Bit 8-Bit 
internai Graphic Card Code internal 
Code 


6-Bit 


9 
9 
9 
12-0-9-1 
12-0-9-2 
12-0-9-3 i 
AM 12-0-9-4 
AS 12-0-9-5 
6 12-0-9-6 
A? 12-0-9-7 
48 12-0-9-8 
49 12-8-1 
HA [ 12-8-2 DB 3C 12-8-4 
AB ; 12-8-3 AE 3B 
4c < 12-8-4 BC 3E 12-8-6 
AD ( 12-8-5 A8 3D 
KE + 12-8-6 AB 3A 12-0 
FP | ! 12-8-7 DE 3F ~ | 
50 | & 12 A6 30 
51 12-11-9-1 
52 | 12-11-9-2 | 
53 12-11-9-3 | | | | 
54 12-11-9-4 | i 
55 12-11-9-5 | | | | | 
56 12-11-9-6 
f | ERB] fF 
58 12-11-9-8 | 
59 i 11-8-1 i | I 
5A ] 11-8-2 DD 1E -8-6 
5B $ 11-8-3 Au 2B 
5c * ; i1-8-4 { AA | 2€ 1 
5D ) 11-8-5 Ag 2D 
5E ; 11-8-6 BB 2E 
5F = 11-8-7 DC 2F < 
60 7 11 AD 20 
61 / O-1 11 
| 62 11-0-9-2 
63 11-0-9-3 
64 11-0-9-4 
65 L1=0=9=5 
66 11-0-9-6 
67 11-0-9-7 
68 11-0-9-8 
t= 4 ~ | | | 


APPENDIX C (cont'd) 
Table C-5 (cont) 


Internal EBCDIC Characters 


EBCDIC USASCIT BCL 


8-Bit . 
Internal Graphic Card Code i 
Code | 


12-11 

’ 0-8-3 AC 1B 

% 0-8-4 A5 1c 
6D Underscore| 0-8-5 DF 1A # 0-8-2 
6E > 0-8-6 BE OE 8-6 
6F ? 0-8-7 BF oo 
70 12-11-0 
71 12-11-0-9-1 
72 12-11-0-9-2 
73 12-11-0-9-3 
74 12-11-0-9-4 
75 12+11-0-9-5 
76 12+11-0-9-6 
77 12-11-0-9-7 
78 12-11-0-9-8 
79 8-1 
TA 7 8-2 BA ON 8-5 
7B # 8-3 A3 OB 
7C @ 8-4 co Oc 
7D ' 8-5 AT OF S 8-7 
7E = 8-6 BD 1D 0-8-5 
7F H 8-7 A2 1F 0-8-7 
80 12-0-8-1 
81 a 12-0-1 
82 b 12-0-2 
83 c 12-0-3 
84 d 12-0-4 
85 e 12-0-5 
86 f 12-0-6 
87 g 12=0-7 
88 h 12-0-8 
89 i 12-0-9 
8A 12-0-8-2 
8B 12-0-8-3 
8c 12-0-8-4 
8D 12-0-8-5 
8E 12-0-8-6 
8F 12-0-8-7 
90 12~-11-8-1 
91 j Lasts 
92 k 12-11-2 
93 1 12-11-3 
94 m eens eae 
95 n 12-11-5 
96 ° 12-11-6 


Revised 9/28/70 
by PCN 1033099-004 C-21 


APPENDIX C (cont'd) Table C-5 (cont) 
Internal EBCDIC Characters 


| EBCDIC USASCIT BCL 


| { i i 
A2 s 11-0-2 
A3 t 11-0-3 
A4 u 11-0-4 
A5 Vv 11-0-5 
A6 w 11-0-6 
A7 x 11-0-7 
A8 y 11-0-8 
AQ Zz 11-0-9 
AA 11-0-8-2 
AB 11-0-8-3 
AC 11-0-8-4 
AD 11-0-8-5 
AE 11-0-~8-6 | | | 
| AF 11-0-8-7 | | 
BO 12-11-0-8-1 | H | 
Bl 12-11-0-1 i 
B2 12-11-0-2 | | | | 
B 127 -172024 
B4 12-11-0-4 
B5 12-11-0-5 
B6 12-11-0-6 
B7 12-11-0-7 
B8 12-11-0-8 
B9 12-11-0-9 
BA 12-11-0-8-2 
BB 12-11-0-8-3 
BC 12-11-0-8-4 
BD 12-11-0-8-5 
BE 12-11-0-8-6 
BF 12-11-0-8-7 
co (+)PZ 12-0 
CL A 12621 Cl 31 
C2 B 12-2 C2 32 
oq C 19% | C3 | 33 | | | 
| H | i 


¢ 
\ 


C-22 


Table C-5 (cont) APPENDIX C (cont'd) 


Internal EBCDIC Characters 


Internal Graphic Card Code Internal Graphic fae 
Tape Code Code 
Code Code 


——<————_—_—_—_—_— SS SS LL 


D 12-4 34 
E 12-5 35 
F 12-6 36 
G 12-7 37 
H 12-8 38 
I 12-9 39 

12-0-9-8-2 

12-0-9-8-3 

12-0-9-8-4 

12-0-9-8-5 

12-0-9-8-6 

12-0-9-8~-7 

(:)MzZ 11-0 Al 2A x 11-0 

J 11-1 | CA 21 
K 11-2 CB 22 
L 11-3 cc 23 
M 11-4 cD 24 
N 11-5 CE 25 
O 11-6 CF 26 
P 11-7 DO 27 
Q 11-8 D1 28 
R 11-9 D2 29 

12-11-9-8-2 

12-11-9-8-3 

12-11-9-8-4 

12-11-9-8-5 

12-11-9-8-6 

12-11-9-8-7 

0-8-2 

11-0-9-1 
Ss 0-2 D3 12 
T 0-3 D4 13 
U o-4 D5 14 
V 0-5 D6 15 
W 0-6 D7 16 
x 0-7 D8 17 
Y 0-8 D9 18 
Z 0-9 DA 19 

11-0-9-8-2 

11-0-9-8-3 

11-0-9-8-4 

11-0-9-8-5 

11-0-9-8-6 

11-0-9-8-7 
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Table C-5 (cont) 
Internal EBCDIC Characters 


EBCDIC 


USASCIT 


| 8-Bit 
Internal Graphic Card Code 


O MONNU EW NF O 


Card 
Code; 


APPENDIX D 
WARNING AND DIAGNOSTIC ERROR MESSAGES 


Output listings generated from COBOL compilations will highlight 


warning and syntactical errors by placing a number of the left hand 


side of the listing which will relate to a descriptive warning or 
error message printed on the right hand side. An entry will appear 
at the end of the compilation listing which states LAST ERROR AT 
SEQUENCE NUMBER nnnnnn to indicate the last sequence number where | 
an error occurred. Reference to the last sequence error will iden- 
tify the preceding line number where an error has occurred, and so 


on, until finally the FIRST error line is located. Each message 


will cause a row of X's to be printed which act as a cursor to 
identify the location of the error in the statement line. For 


example: 


009155 FD TAPEIN 
FIRST ERROR 170 XXX FILE NOT SELECTED 


115110 OPEN INPUT PRINT-OUT 
009155 ERROR 390 XXXXXXXXXX<X UNIDENTIFIED WORD 


OBJECT CODE NOT GENERATED, LAST ERROR AT SEQUENCE NUMBER 115110 


Error messages in the PROCEDURE DIVISION usually immediately follow 
the line in error and those pertaining to other divisions usually 


precede the line in error. 


The following error messages will be printed at the end of the 


compilation listing and are not affiliated with an error number: 


Error Message Description 

CODE FILE ROW Any one program segment is limited to 100,000 
SIZE WAS Poe ; : : 

EXCEEDED digits. Use sections and priority numbers to 


divide into smaller segments. Programs cannot 


be executed. 
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Error Message Description 

DATA DIVISION DATA DIVISION and constant pool address are re- 
AND CONSTANTS ; : dts 

EXCEEDS stricted to first 100,000 digits of the program. 
100,000 Program may be executed but references to data 


above 100,000 (if any) will be wrong. Data size 
can be shortened by reducing the number of items 
being MONITORed, the data declarations in the 
DATA DIVISION, or the size of literals in the 
PROCEDURE DIVISION. 


PROGRAM ADDRESS No program may require more than 300,000 digits 
Cisne 308. 068 of core. Reduce size by segmentation. 
? 


The warning messages in table D-1 are in sequence by warning 


message number. 


Table D-1L 


Compiler Warning Messages 


Warning 
Message Message Description 


Number 


1 
10 | Piller Added Indicates that from 1 to 3 
digits have been added in order 
to start the next group level at 
mod 2 or a record at mod 4, 
The sending field is longer than 
the receiving field and some data 
will be lost. 
30 Sequence Error The value in Card Column 1 thru 


6 of the source program statement 
is not greater than the preceding 


value. 


20 Receiving Field 
Truncation 
| | Record size will not divide 


aft’ Da 
Va ALU vVa UU VWiLaoe 


evenly into the block size. 
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Table D-1 (cont) 


Compiler Warning Messages 


Warning 


Message Message Description 
Number 


50 Possible CMP Group Group computational receiving 


EAE Se DEON fields are treated as if they are 


alphanumerically declared and 


will not convert data from one 
form to another (CMP or DISPLAY). 


60 Seek/Fill Needs If a seek or fill statement is 
pene oe used in a program then at least 
one alternate area must be 
reserved. 
70 Records/Area Made , If the file contains factor is 
sas Oz Bock not an even multiple of the 
blocking factor the compiler will 
adjust the row size upware until 
it becomes an even multiple of 
the block size. 
120 Perform Exit Occurs If B thru A is performed rather 


Before Enter than A thru B the exit for the 


perform will occur in program 


sequence prior to the enter. 


The syntactical error messages in table D-2 are in sequence by error 
number. The description adjacent to the error number defines the 
cause of the error. There is a group and error message number. The 
group error number identifies the general error grouping with the 
descriptive title that will be printed on the listing. The error 
message number and the adjacent description defines the cause(s) of 
the error. The column labeled Verb contains the compiler verb which 
pertains to that specific error message number. The verb and some 
of the procedure-names should be helpful in determining the cause of 
the error. Those error messages without a verb or procedure entry 


are omitted due to being of no value to the programmer. 
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Error 


Message 


Number 


i 

151 

152 
| 160 
170 
170 
170 
170 
170 


171 


180 


Table D-2 


Compiler Error Messages 


Description 


150 Group - DUPLICATED WORD 


Name was previously used and may not be 


used again since it cannot be qualified 


in this case. 


File was previously selected. FILE-CONTROL 


Nested COPY statements not allowed. 


160 Group - EXCESS OPERANDS 
Too many operands. Usually a result 


field series where series not allowed. 


170 Group - FILE NOT SELECTED 


Missing file-name. 


Missing file-name, INPUT or OUTPUT. USE 


Construct requires at least one file. 


File has not been selected. FILE SECTION 
Missing file-name. 


File not selected in MONITER state~ 


ment. 


180 Group ~- ILLEGAL LITERAL 


Literal too large. 


Literal operand greater than 98 


digits in length. 
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Table D-2 (cont) 


Compiler Error Messages 
Error 
Message Description 


Number 
———————————— ee 


Left quote mark missing on contin- 


uation card. 
Literal may not follow GIVING. 
Tllegal literal. 


Right quote mark missing on contin- 


uation card. 


Literal greater than 160 characters 


in length. 


Literal has scale greater than 99 


digits. 


Literal has size of zero (rs Buy ta 


Misspelled literai (e.g., 123.AA). 


Illegal literal in SEGMENT-LIMIT or 


currency clause. 


Illegal priority number. 


190 Group - ILLEGAL OPERAND 


ALL has been used with data-name. 


Data-name has not been declared in 


the DATA DIVISION. 
CORRESPONDING operand error. 


Class rules between sending and re- 


ceiving items has been violated. 
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Table D-2 (cont) 


Compiler Error Messages 


Description 


Literal following ALL has scale part. 


Item must be defined as elementary 


numeric. 


PERFORM 


| 190 Literal (or data-name used as such) EXAMINE 
size not one. 
190 Item being examined not DISPLAY USAGE. EXAMINE 
190 Item being examined not a data-name. EXAMINE 
190 Data-name (used as a literal) not EXAMINE 
| DISPLAY USAGE. 
| 190 Illegal operand. 
| 190 Data-name (used as a literal) is EXAMINE 
| | subscripted. | 
| 190 | Operand greater than 98 digits in | | 
iength. I i 
| 190 | Operand not a literal (or data-name | EXAMINE | 
used as such). 
190 Illegal operand in DISPLAY or ACCEPT. ACCEPT/ 
| Must be a group or elementary item or Riorle 
a special register. 
190 Literal class not consistent with EXAMINE 
examined data-name. 
| 196 | Dee eaw <a perese “coe, wet ee me y | 
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Table D-2 (cont) 


Compiler Error Messages 


Error 


Message Description Verb 
Number 
nn 
190 Data-name following INTERROGATE must DATA-COMM 


be a 16-digit computational elemen- 


tary item or an 8-character group 


item. 

190 Must be a data-name declared as PC DATA~COMM 
9(5), CMP, or a literal less than 
100,000. 

190 ALTER operand is not a switch. ALTER 

190 Cannot GO TO label in DECLARATIVES. GO TO 

190 GO TO operand not a label. GO TO 

191 Missing file-name. 

191 Missing operand. 

191 Missing integer. 

192 Scope error. RENAME 

193 Number of records missing in RERUN I-O-CONTROL 
clause. 

194 Illegal BLOCK contains VALUE. FILE-CONTROL 

195 Exponent must be an integer. If lit- 


eral, the size must be five or less. 
If data-name, it must be unsigned and 


less than five in value. 
196 Tllegal SAVE-FACTOR value. FILE-CONTROL 
197 Tllegal LABEL RECORD declaration. FILE-CONTROL 


~ 
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Error 


| Message 


Number 
198 


199 


201 
202 
203 
204 
205 
206 


207 


208 


209 


210 
210 


210 


Table D-2 (cont) 


Compiler Error Messages 


Description 


Illegal RECORDING MODE declaration. 


File not declared. 


200 Group - ILLEGAL PICTURE CATAGORY 


Repeat part of PICTURE in error. 

Float characters not valid. 

Invalid sequence of PICTURE characters. 
P PICTURE character(s) in error. 
Decimal point in error. 

Sign error. 


PICTURE requires a mask size that 


exceeds hardware limits (100). 
Size specification error. 


Class error. Classes are NUMERIC, 
ALPHA, ALPHANUMERIC, or EDITED- 
NUMERIC. 


210 Group - ILLEGAL USE OF RESERVED WORD 


Tilegal NEXT. 
Illegal use of reserved word. 


Reserved word has been used as an 


operand. 


Verb 


FILE-CONTROL 


I~O-CONTROL 


PICTURE 


PICTURE 


PICTURE 


PICTURE 


PICTURE 


PICTURE 


PICTURE 


PICTURE 


PICTURE 


MOVE 


ee A Tern eS EAE AS 
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Table D-2 (cont) 


Compiler Error Messages 


Error 


Message Description 
1 Number 


Operand has more than one subscript set. 
Reserved TO not allowed with GIVING. 
Illegal use of reserved word. 


BY not allowed without GIVING. DIVIDE 


Illegal declaration at group level 


(e.g., PC, BZ, JUST, or SY). 
Tllegal declaration. 


Tlilegal use of a fixed name. 


220 Group - ILLEGAL WORD 


Illegal operator. 

Required BY missing. MULTIPLY 
Word ends with a hyphen. 

Tllegal literal. 

Illegal word/operand/operator. 

Illegal word, 

FIRST does not follow UNTIL. EXAMINE 
ALL, LEADING, or FIRST not found. EXAMINE 
BY missing. EXAMINE 


TALLYING or REPLACING not found. EXAMINE 


APPENDIX D (cont'd) 


224 


225 


230 


230 
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Compiler Error Messages 


Description 


No ALPHA characters in a DATA DIVI- 
SION name. 


Word or name exceeds 30 characters. 


Tillegal file-name after a ievei-number. 


Illegal data-name after a level-number. 
Reserved word required at this point. 


Both a label list and ALL appear in the 
MONITER statement. These are mutually 


exclusive. 

SELECT declaration error. 

I-O CONTROL declaration is in error. 
FD declaration in error. 


Missing SELECT. 


230 Group - INCOMPLETE STATEMENT 


Missing TO or FROM for CORRESPONDING. 


MOVE Statement does not contain the 
word TO and/or no operand preceeding 
the word TO and/or no operand follow- 


ing the word TO. 


Unmatched right parenthesis. 


FILE-CONTROL 
T-0O-CONTROL 
FILE SECTION 


FILE- CONTROL 


MOVE 


COMPUTE 


EXAMINE 
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Table D-1 (cont) 


Compiler Error Messages 


Error 


Message Description Verb 
‘Number 
OO 
230 Incomplete statement. CONDITIONAL 
231 Missing FROM. SUBTRACT 
239 No label after PROCEED TO. DATA-COMM 


240 Group - LEVEL ERROR 


240 Missing FD after FILE-SECTION. 
241 Missing level-number. 
242 Level-number not within range of one 
to 99. 
243 The level of the operand in a RENAMES RENAME 


clause is 01, 66, 77, or 88. 


244 Erroneous level-number sequence (e.g., 
02, O4, 03). 


REDEFINES operand has incorrect level. 

O01 level missing. 

Missing level-number or indicator. 

Data-name must be at 77 level. FILE -CONTROL 
File not declared. 


250 Group - LIMIT EXCEEDED 


Not more than two AFTERs allowed. PERFORM 
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Table D-2 (cont) 


Compiler Error Messages 


[error | | 
1 


280 


Message 
Number 


NR SS CS iS A EES ST SEN 


Description Verb 


Composite field size greater than 98 
digits, or greater than 99 digits if 
MULTIPLY or DIVIDE. 


FD information table full. 


Operand stack full. 

Output limit exceeded. 

PC information table full. 
Operator stack full. 
Subscript stack full. 


Literal stack full. 


260 Group - MISSING DECLARATIVES 


Missing DECLARATIVES. 


270 Group - MISSING DIVISION/SECTION HEADER 


Missing DIVISION or SECTION header. 
The word SECTION is missing. 
The word DIVISION is missing. 


280 Group - MISSING END DECLARATIVES 


Missing END DECLARATIVES. 


| 
DECLARATIVES Missing. | 
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Table D-2 (cont) 


Compiler Error Messages 


Error 
Message Description Verb 
Number 
290 Group - MISSING LABEL 
290 The required procedure label immediately 


following the PROCEDURE DIVISION is 


missing. 


291 No label after a SECTION name, GO TO, 
or EXIT paragraph. 


292 Missing implied label after GO TO, LABEL 
PERFORM, etc. 


300 Group - MISSING OPERAND 


300 Less than two operands. 
300 No operand after GIVING. 
301 Missing ASSIGN clause in a SELECT FILE-CONTROL 
statement. 
303 Missing FILE ID value. FILE SECTION 
304 Hardware name missing. FILE-CONTROL 
305 Tillegal MULTI-FILE ID. FILE-CONTROL 
307 THRU missing in the FILE-LIMITS clause. FILE-CONTROL 
310 Group - MISSING PERIOD 
310 A required period is missing. 
320 Group - ENTER SYMBOLIC 
320 ENTER SYMBOLIC element missing or wrong. 
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331 


332 


5 


334 


335 


336 


338 


a TN AS 


338 


339 


Table D-2 (cont) 


Compiler Error Messages 


Description 


330 Group - NO CORRESPONDING ITEMS 


CORRESPONDING left rejected because COR- 
RESPONDING right failed data-name quali- 


fications. 
Missing CORRESPONDING right. 


CORRESPONDING right rejected because 
CORRESPONDING left entry failed on 


data-name qualification. 


CORRESPONDING left and right same 


data-name. 
CORRESPONDING ranges overlap. 


One or both CORRESPONDING data-names is 
a FD. 


Both CORRESPONDING data-names are not 


group items. 


CORRESPONDING pairs or CORRESPONDING 
items do not have the same quaiifica- 


tion. 
No CORRESPONDING pairs. 


No CORRESPONDING liogic attempted. Data 
structure is bad (usually duplicate 
data-names) in one or both CORRESPON- 
DING ranges. 


Table D-2 (cont) 


Compiler Error Messages 


Error 
Message 
Number 


Description Verb 


——— rere 


340 Group - PICTURE ERROR 


340 PICTURE string contains more than 30 


characters. 
341 PICTURE missing in elementary item. 


342 BLANK WHEN ZERO class is ALPHABETIC or 
ALPHANUMERIC. Change PICTURE to NUMERIC 
or NUMERIC EDITED. 


343 Justify class is NUMERIC or NUMERIC- 
EDITED. Change to ALPHA or ALPHANUM- 
ERIC, 

347 The reserved word MOD may be used only 
at the O01 level and only in working- 
storage. 

O Group - QUALIFICATION ERROR 

350 No data~name qualifier after OF or IN. 

351 Unidentified implicit label or qualifier. 

351 Unidentified implicit data-name or 
qualifier. 

352 Duplicate paragraph-names in same SECTION. 

353 Tillegal qualification. 

354 SECTION name used as qualifier not 
unique. 
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Table D-2 (cont) 


Compiler Error Messages 


feeror | | | 


Message Description j | 
Number 


Insufficient qualification to determine 


uniqueness of label. 


Insufficient qualification to determine 


uniqueness of data-name. 


356 Label qualifier not a SECTION name. 
357 Too many labels in the program; request 
more core. 
357 More than 10 levels of qualification, or 
too many data-names in the program. If 
too many data-names, request more core. 
| 360 Group - REDEFINES SIZE ERROR 
| 360 RENAMES size error. 
| 361 | REDEFINES name error. | | 
| 362 | REDEFINES size error. | | 
| 363 | RENAMES group has odd address or odd size. | 
370 Group - REFERENCE FORMAT ERROR 
370 Reference format error. 
! 
| | 380 Group - SUBSCRIPT ERROR 
380 RENAME operand is subscripted. RENAME 
380 More than three subscripts. 


380 
380 
380 


381 


381 
382 
383 


384 


390 
390 


390 


400 


4O1 


APPENDIX D (cont'd) | 


Table D-2 (cont) 


Compiler Error Messages 


Description Verb 


Missing subscript. 
Subscript has scale. 
Too many subscripts. 


OCCURS has been specified on the O1 or 
77 level entry. 


More than three subscripts. 
OCCURS operand specification error. 
REDEFINES operand subscripted. 


Missing right parenthesis. 


390 Group - UNIDENTIFIED WORD 


Unidentified word. 
Unidentified input. 


Unidentified input. 


400 Group - USAGE ERROR 
COMPUTATIONAL USAGE has been specified for 


a display device (e.g., card reader, prin- 


ter, or punch). 


COMPUTATIONAL specified on an item with 


a non-numeric PICTURE, 
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Table D-2 (cont) 


Compiler Error Messages 


lPrror | [ 


Message 


Number 


N11 


412 


413 


419 


429 


431 


431 


Description 


Group USAGE conflicts with USAGEs of 


elementary items within that group. 


410 Group - VALUE ERROR 


VALUE specified for REDEFINED area. 
VALUE operand is missing. 


VALUE has been specified for a subscripted 


item. 


VALUE has already been specified at the 


group level. 


VALUE may not be a signed literal if 
PICTURE specifies J or K sign. 


420 Group - ILLEGAL OPERATOR 


Tlilegal word. 


430 Group - COMPILE ERROR 


Could not find data item in the data-name 
information. Usually due to some other 
syntax error or may indicate software/ 


hardware faiiure. 


Illegal type code. Indicates software/ 


hardware failure. 
No such scan class. 


No such scan class. 


DATA-COMM 


SN St Sl SS PS 
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Table D-2 (cont) 


Compiler Error Messages 


Description Verb 


434 No such type. 


440 Group - MAY NOT REFERENCE OUTSIDE DECLARATIVES 


Aho Data-names declared as being within a LABEL 
RECORD may be referenced only within the 


declaratives. 


450 Group - CONDITION NAME CONSTRUCT ERROR 


450 Bad condition-name construct. CONDITION- 
NAME 


460 Group - FILLER CANNOT BE A GROUP ITEM 
460 A group item may not be named FILLER. 


470 Group - TOO MANY DATA NAME MONITER ENTRIES 
470 Trying to MONITOR too many data-names. 


480 Group - EXCEEDED DATA NAME LIMIT IN COMPILATION 


480 Program contains too many data-names for 
the amount of core assigned to the COBOL 
compiler. Recompile, using a core card 


to make more core available to the com- 


pilation. 
490 Group - ILLEGAL CONDITION- PRIMARY 
490 The primary is not boolean. 


500 Group - ILLEGAL OPERATOR IN CONDITION-PRIMARY 


500 Bad operator. 
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Table D-2 (cont) 


Compiler Error Messages 


Error 
j Message 
Number 


510 Group - ILLEGAL QUANTITY AT START OF CONDITION 
510 Tilegal quantity. 


520 Group - MISSING RIGHT PARENTHESIS 


520 Matching right parenthesis. 


530 The relation is incomplete. 


540 Group - AN ARITHMETIC EXPRESSION CANNOT BE NEGATED 


540 Expression cannot be negated. 


550 Group - MISSING LOGICAL CONNECTIVE 


550 Logical connective missing. 


560 Group - ILLEGAL CONDITION 
560 Tilegal condition. 


data-name. 


570 Group - MISPLACED WORD-NEXT 


561 Index-data-name versus a literal or normal | 
| 


570 Reserved word NEXT misplaced. ik STATE- 
MENT 
580 Group - SUBJECT AND OBJECT ARE LITERALS 
580 Both operands may not be literals. CONDITIONAL 


590 Group - USAGE MUST BE DISPLAY, NON-NUMERIC COMPARES 


590 The USAGE must be DISPLAY unless both of CONDITIONAL 


530 Group - THE RELATION MUST BE COMPLETE 
| 
the operands are NUMERIC. 
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Table D-2 (cont) 


Compiler Error Messages 


Description Verb 


600 Group - NUMERIC VERSUS ALPHA COMPARE IS ILLEGAL 


600 Cannot compare a NUMERIC item to an ALPHA CONDITIONAL 
item. 
610 Group -—- COMPOSITE OPERAND SIZE MUST BE LESS THAN 100 
610 Compare of COMPUTATIONAL items restricted CONDITIONAL 


to less than 100 digits. 


620 Group - CLASS TEST OPERAND MUST BE DISPLAY 
620 USAGE must be DISPLAY. CONDITIONAL 


630 Group - FILLER IS FOLLOWED BY 88 LEVEL ENTRY 


630 May not have a 88 level on a FILLER. 


640 Group - USE: AFTER BEGINNING OR BEFORE ENDING 


640 Statement should read: USE AFTER... USE 
BEGINNING . . . ox USE BEFORE .. . ENDING. |. . 
650 Group - MAXIMUM: FILE CONTAINS 20 BY 99999999 RECORDS 
650 DISK files may not contain more than the FILE 
SECTION 


equivalent of 5,000,000 20-character record 
in a single file page. There may not be 


more than 2G pages per file. 


660 - Group - INVALID USE OF PERFORM STATEMENT 


660 Object program segment structure incorrect PERFORM 
and would result in overlaying the PERFORM. 


670 Group - FILE CONTAINS CLAUSE REQUIRED FOR DISK 


670 Required FILE CONTAINS clause has been FILE 


omitted. SRe Eten 
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690 


700 


710 


730 


Table D-2 (cont) 


Compiler Error Messages 


Description 


680 Group - ACTUAL KEY/FILE LIMIT IS NOT PC 9(8) CMP 


(] 
Data-names defined as ACTUAL-KEYs or FILE-LIMITS 


must be declared PC 9(8) CMP. 


The USE sentence must immediately follow each 


SECTION in the DECLARATIVES. 


740 Group - MISSING SECTION NAME 
A SECTION name must follow DECLARATIVES. 


690 Grou PC TABLE FULL: REQUEST MORE CORE 
Table limit has been exceeded. Recompile the 
program using a core card to make more memory 
available, or reduce the number of unique 
PICTUREs. 
700 Group - ACTUAL KEY REQUIRED FOR RANDOM FILES 
An ACTUAL-KEY must be defined for all FILE- 
RANDOM files. CONTRO 
710 Group - LABEL MUST BE FIRST O1 OF FD 

If a LABEL defined for referencing within the | FILE 
DECLARATIVES, it must be the first 01 follo- | °PCTTON 
wing the FD. 
720 Group - BACKUP IS FOR PRINTER OR PUNCH ONLY | 
When backup is specified in a SELECT clause, | pri- 
that file must be assigned to the printer or CONTROL 
punch, 

730 Group - MISSING USE SENTENCE 
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Table D-2 (cont) 


Compiler Error Messages 


Description 


760 Group - FILE MUST BE A SORTER 
Specified declarations for sorter file only. | I-O-CONTROL 


770 Group - SORTER RECORD MUST BE 100 CHARACTERS 


FD must describe 100 characters. FILE 
SECTION 


780 Group - GROUP ADDRESS NOT MOD 2 


If an elementary CMP item not character ad- 


justed is redefined as a group (or alpha- 


numeric) item that must be character adjust- 


ed. 


790 Group - LISTER ACTUAL KEY 


ACTUAL KEY for LISTER is not PC 9(4) CMP. 


800 Group - INDEX DECLARATION 


800 INDEX data item declaration error. 


810 Group - VALUE CLAUSE 
810 | VALUE specified for REDEFINES area. 


820 Group - PAPER TAPE 


820 Paper tape file declared as being BLOCKED. 
830 Group ~ RENAMING 
830 RENAMES operand range error. 


840 Group - SD DEFINITIONAL ERROR 
840 SD file must be SEQUENTIAL and have no de- 
clared FILE-LIMITS. 
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Table D-2 (cont) 


Compiler Error Messages 


Description 


850 Group - VARIABLE LENGTH DISK RECORDS 


Variable length disk records are not allowed. 


860 Group - DATA COMM. ACTUAL KEY 


Data Communication ACTUAL KEY IS NOT defined 
Pc 9(6) CMP. 


ENTER SYMBOLIC RESERVED WORDS 


ADD 
AND 


BAS 
BCT 
BOT 
BUN 
BZT 


CPA 
CPN 


DEC 
DIV 
DSP 


EDT 
EQL 
EXT 


FAD 
FDV 
FMP 


* See special instructions, 


APPENDIX E 


FSU 


GEQ 
GTR 


HBK 
HBR 


INA 
INC 
IxX1l 
IxX2 
IX3 


LEQ 
LIT 
LSs 
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APPENDIX F 
DISK FILE HANDLING 


GENERAL. 

Disk space for files within the MCP controlled environment is 
allocated to a program, dynamically, and addressed by the program 
by record location within file-name. Record location is defined 
as one (1) through N, where N equals the number of records con- 
tained in the file. This may be further redefined by the FILE- 
LIMITS clause. The programmer can further define his file, for 
disk allocation purposes, as occupying multiple areas of disk to 
be allocated as needed, i.e., when the previous area is full or 
the program attempts to access a record, to WRITE, within an 
unallocated area. These areas of disk records can be scattered 
across different Electronic Units at the option of the programmer 
or anywhere on the disk, where adequate space for that area is 
available, at the option of the MCP. This area allocation scheme 
in no way affects the record addressing concept in the object 
program nor adds to the READ/WRITE time within the MCP. 


It becomes obvious, therefore, that for this allocation scheme to 
be possible the MCP must know the status of the Disk File at all 
times. There are two tables maintained by the MCP on disk that are 
used to represent this status. They are the Disk Directory and 

the Available Disk List. 


The Disk Directory contains information concerning all files and 
programs currently in the disk library. This data (name, physical 
disk address of each area currently allocated, number of records 
per area, End-of-File pointer, etc.) in concert with the File In- 
formation Block (FIB) located within the object program using that 
file, contains all the data necessary for the MCP to access records 


at the request of the object program. 


The Available Disk List is an MCP maintained linked list containing, 
by ascending disk address, all available disk space and their sizes 
in physical segments (100 bytes/segment). 
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i 


When an area of disk 
the Available Disk List for an are 
the desired records. If an area o 
the program making the request is 

notified of NO USER Disk. 


found, 


s requested by a program, 


the MCP searches 
a of disk large enough to contain 
f disk large enough is not found, 


suspended and the operator is 


Assuming an area of sufficient size is 


this area is removed from the Available Disk List and is a 


candidate for entry in the Disk Directory depending on other actions 


taken by the program (these other actions such as OPEN and CLOSE will 


be discussed later). Depending on 
is either returned to the Availabl 
Directory as a permanent file. If 


Available Disk List, it is subject 


If the file is made permanent, the 


matching file-name. If a match is 
tered in the Disk Directory and is 


program. 


Should a matching file-name be found, 


these actions,. that area of disk 
e Disk List or entered in the Disk 
that area is returned to the 


to reuse as often as needed. 


Disk Directory is searched for a 
not found, the new file is en- 
available to be opened by another 


the operator is noti- 


fied of this duplicate and the program is suspended until a proper 


operator response is made. There 

operator: remove ((Mx)RM) the old 
file, and discontinue ((MX)DS) the 
area for that file to the Availabl 


If a file is OPEN OUTPUT in a sequential mode, 


to the file starting at record one 


are three options available to the 
file, change the name of the old 
program thus returning the disk 


e Disk List. 


records are written 


(1) and proceeding until the 


program CLOSEs that file or the definition of that file (as defined 


by the FILE CONTAINS and the FILE-LIMITS clauses) is reached. 


the first area of disk is filled, 
next area is obtained. 
It 


dition is reached. can be seen 


sequential mode, areas are allocat 


one (1) and proceeding in sequence 
The maximum number of areas allowe 


twenty (20). 


If a multi-area file is OPEN OUTPUT or O-I in a random mode, 


When 


in a multi-area defined file, the 


This is continued until the End-of-File con- 


from this description that in the 
ed and used beginning with area 
until the last area is allocated. 


d in the FILE CONTAINS clause is 


records 


are written to this file in accordance to a record number {ACTUAL 
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KEY) supplied by the object program dynamically. Since the actual 
key for writing records is dynamic and not necessarily sequential, 
it is possible that the areas (pages) of disk allocated may be 
neither sequential nor consecutive. For example, areas three (3), 
five (05), and seven (07) may be allocated to a file if the actual 
key at record WRITE time placed records in only these areas. In 
this example, areas O01, 02, O4, and 06 have not been allocated to 
this file, but the End-of-File pointer located in the Disk Directory 
for this file would contain the value of the highest record number 


written (located in area 07). 


The above described disk allocation scheme is paramount to under- 


standing the other areas of disk file usage. These areas are: 


a. OPEN sequential. 

b. Open Random. 

c. CLOSE. 

dad. READ, WRITE, and SEEK with RANDOM DISK files. 


OPEN SEQUENTIAL. 
This OPEN consists of three types: OPEN INPUT, OPEN OUTPUT, and 
OPEN I-00. 


OPEN OUTPUT. This type of OPEN is for new files (the file does not 
exist or is to be replaced in the Disk Directory by this entry). 
Records are written sequentially beginning with record one (1) and 
ending when the program CLOSEs that file or the maximum record as 
defined in the FILE CONTAINS clause is reached. Disk will not be 
obtained until the first write is attempted and then only the first 


area is obtained. 


If an attempt is made to write past the last record defined in the 
FILE CONTAINS clause, the at end branch will be taken on the WRITE 
statement. Absence of an AT END will cause a program termination 


(EOF NO LABEL). 
OPEN INPUT. This OPEN requires the existence of the file in the 
Disk Directory (an old file). Records are made available to the 
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program starting with record number 1, or as defined by the FILE- 
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ranch is taken on a READ sta 
when an attempt is made to access past the End-of-File pointer, or 
the end record of the FILE-LIMITS clause. The End-of-File branch 
will also be taken if an attempt is made to READ a record from an 
unallocated area, even if the record number is below the End-of-File 
pointer. Again, absence of an AT END will cause an EOF NO LABEL 


termination. 


OPEN I-O. This OPEN requires the file to be on disk with an entry 
in the Disk Directory. This method allows users to update a se- 
quential file. The following examples show mixing READ and WRITE 


commands: 


a. READ record-1 READ record-2 ... . 

b. READ record-1 WRITE record-1 READ record-2 ... . 
c. WRITE record-1 WRITE record-2 ... . 

d. WRITE record-1 READ record-2 WRITE record-2 ... . 


OPEN RANDOM. 

This OPEN consists of four types: OPEN OUTPUT, OPEN INPUT, OPEN 
INPUT-OUTPUT, and OPEN OUTPUT-INPUT. There are also two options 
that can be used with this type OPEN: OPEN WITH LOCK option and 
OPEN WITH LOCK ACCESS option. 


OPEN OUTPUT. This type of OPEN is for new files. Records are 
written to this file in accordance to the value of the ACTUAL KEY, 
the contents of which is dynamic throughout the execution of the 
program. A new area of disk is allocated the first time an attempt 
is made to WRITE a record into that area. Any attempt to exceed 
the bounds of the file, as declared in the FILE CONTAINS clause, 
will invoke the invalid key branch off the WRITE statement. The 
random writing of either blocked or unblocked records is provided. 


The only I/O statements allowed are WRITE and SEEK. 


OPEN INPUT. This type of OPEN assumes the existence of an old file. 
qd -e to the value of the ACTIAT, KEY 
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contents of which are dynamically provided by the program at object 
time. Any attempt to exceed the End-of-File pointer for that file, 
access a record in an unallocated area, or violate the PILE-LIMITS 
clause will invoke the INVALID KEY branch of the READ statement. 
Random reading of blocked or unblocked records is provided. The 


two I/O statements allowed are READ and SEEK. 


OPEN INPUT-OUTPUT (I-O). This OPEN technique for random files in- 
corporates the capabilities of both OPEN INPUT and OPEN OUTPUT. 


This OPEN type assumes an old file (one that exists on the Disk Di- 
rectory). Files OPENed in this manner are generally OPEN for update, 
that is READ record-n update record-n in core, WRITE record-n in its 
updated form. END-OF-FILE options for this type of OPEN are identi- 
cal to the two previous types. INVALID KEY on the READ is when the 
End-of-File pointer is exceeded or a READ attempt within an unallo- 
cated area is exceeded. INVALID KEY on the WRITE is when maximum 
file declaration is exceeded. Any attempt to access a record within 
an unallocated area for writing will cause that area to be allocated 
and all records within that area, not exceeding End-of-File pointer, 


are available to the program, regardless of their validity. 


OPEN OUTPUT-INPUT (O-l). This type of OPEN for random files is 
identical to OPEN I-0O with the exception that the file is assumed 


to be a new file (one that does not exist in the Disk Directory). 

This OPEN option will shortcut the usual method of using I-O work 

files within a program. This procedure is OPEN OUTPUT, WRITE records, 7 
CLOSE, OPEN I-0, etc. This option does not, nor was it intended to, 
replace OPEN I-0O since the use of OPEN O-I assumes a new file each 


time. 


Since INVALID KEY or AT END is based on the End-of-File,pointer, it 
is possible to read records that were not created by this program. 
For example; a disk file is declared by a program as containing one 
by 100 records (FILE CONTAINS clause). The file is OPEN OUTPUT in 
a random mode and the program sets the ACTUAL KEY for that file at 
100 and WRITES a record. If the program CLOSES that file in a man- 


ner which causes it to be entered in the Disk Directory, area 1 will 
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be allocated with the End-of-File pointer in the Disk File Header 
set at 100. If ancther program OPENS that file INPUT and attempts 
to access record number 1, the first record will be made available. 
In this example, it is possible for the program to READ 99 garbage 
records before the first valid record. An attempt to access beyond 
100 will cause an INVALID KEY or AT END branch to be taken off the 
READ statement. 


OPEN WITH LOCK. ‘The use of the LOCK option with any OPEN type will 
prohibit any other program from OPENing that file in any manner un- 


til the program causing the LOCK releases the file. 


OPEN WITH LOCK ACCESS. The use of the LOCK ACCESS option with any 
OPEN will prohibit any other program from OPENing that file except 
for INPUT. This option allows only one update program (I-0) but 
any number of read programs (INPUT) to access the file. The LOCK 
ACCESS remains in effect until the program causing this releases 


the file. 


CLOSE. 
CLOSE consists of four types: CLOSE file-name, Terminate CLOSE, 
CLOSE PURGE, and CLOSE LOCK or CLOSE RELEASE. 


CLOSE FILE-NAME. This is normally considered a temporary CLOSE 
option and may cause the programmer some difficulty if not under- 
stood. If the program goes to EOJ after this CLOSE type on a new 
file (OPEN OUTPUT or 0-1), the file is not entered in the Disk Di- 
rectory and the area(s) occupied by this file is returned to the 
Available Disk List. If the file is an old file (one previously 
entered in the Disk Directory), the Disk File Header for that file 
is updated with its current status and written back to the Disk Di- 


recotry thus causing the new records to be permanently assigned. 


TERMINATE CLOSE. This type of CLOSE is an implicit MCP CLOSE of 
the file caused by a premature termination of the program due to 
program failure or absence of an explicit CLOSE by the program prior 
ta BROT, The MCP actions for this type are identical to the plain 


CLOSE described above. 


BG 


at Vv 


APPENDIX F (cont'd) 


CLOSE PURGE. This type of CLOSE will cause the MCP to remove the 
file (old or new) and return the disk areas described for that file 
to the Available Disk File. The file no longer exists in the Disk 


Directory. 


CLOSE LOCK or CLOSE RELEASE. These CLOSE types cause new files 
(OPEN OUTPUT or 0-1) to be made permanent by entering the file in 
the Disk Directory. This is done by the action of writing the Disk 
File Header, created and updated by the MCP during execution of this 
program, into the Disk Directory and entering the file-name in the 
Disk Directory List. The action taken for an old file (one that 
exists in the Disk Directory) is identical to the plain CLOSE type. 


It is possible to override the action of CLOSE or Terminate CLOSE 
as described for new files (files not currently in the Disk Direc- 


tory) by use of the SAVE option in the SELECT clause. For example, 
SELECT file-name ASSIGN TO DISK SAVE... . 


causes new files to be entered in the Disk Directory when a program 
failure causes an unexpected termination of the program. The file 
and End-of-File pointer will reflect the status of the 


moment of termination. 


READ, WRITE, AND SEEK WITH RANDOM DISK FILES. 
Before any further discussion on this subject, definitions of READ, 


WRITE, and SEEK as related to random disk files will be helpful. 


a. READ - make available to the object program a logical 
record addressed by the setting of the ACTUAL KEY. 


b. WRITE - release a logical record addressed by the ACTUAL 
KEY to the MCP for output to the disk. 


c. SEEK - fill a program buffer with a block of records con- 
taining the record pointed to by the ACTUAL KEY if the 
file is blocked, or cause the record required, if unblocked, 


to be read. If the MCP has the required record in a 
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program buffrer, by virtue of a previous SEEK, a new physi- 


cal READ will not be initiated. 


The reading and writing of logical records is an object program con- 
cept. The initiation of physical READs and WRITEs is an MCP con- 
cept. Whether a file is blocked or unblocked, in no way affects 
the object program concept of logical READ and WRITE, the burden of 
blocking and unblocking is on the MCP. Since a physical READ or 
WRITE to a disk file must begin at the start of a segment address 
and be in multiples of 100 byte segments, and, no record size or 
block size restrictions are made on the object program, the possi- 
bility that blocked records may overlap segment addresses exists. 
If the MCP initiated a WRITE operation under these conditions, ad- 
jacent records within the block could be destroyed. To keep this 
from occurring, the MCP must READ the block containing the record 
to be written, move the new record into the block, and then WRITE 


the entire block back in the same location. 


The use of a SEEK prior to a WRITE would accomplish this action. 
However, if an explicit SEEK is not given prior to a WRITE of block- 
ed records, an implicit SEEK wiil be done by the MCP to load the 
block prior to the WRITE. A SEEK is never needed on files declared 
OUTPUT, since the MCP will handle any SEEK requirements when the 


writing of records wouid cause adjacent record destruction. 


On files OPENed INPUT, the absence of an explicit SEEK prior to a 
READ will cause the MCP to initiate an implicit SEEK to load the 
required record. Therefore, a SEEK is never required explicitly 
in files OPENed INPUT. The use of explicit SEEKs may create a 


speed increase in anticipation of random READs. 


The only condition which requires the object program to explicitly 
SEEK file-records is when USE FOR KEY CONVERSION is used. This de- 
clarative will only be executed during an explicit SEEK. Implicit 


SEEKs will not cause this action. 
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a. Only valid in random files. 
b. Never required explicitly in random files. 
c. Required if USE FOR KEY CONVERSION is desired. 


d. Will improve speed in anticipation of random reads 


with multiple buffers. 


NOTE 
A special note for those who are familiar 
with our previous implementation of random 
disk files on both the B 5500 and B 3500 
regarding the setting of the ACTUAL KEY. 
Henceforth, a READ or WRITE of a record will 
always use the value of the programs ACTUAL 
KEY at the time of actual I/O initiation. No 
assumptions will be made by the MCP on WRITE 
after READ as in the past. 


SPECIAL DISK CONSIDERATIONS. 

Many problems have been encountered by the B 2500/B 3500 programmers 
regarding the use of disk files. These problems, caused by viola- 
tions of disk file usage, have created a number of Disk Directory 
failures, run-time object program failures, operational difficulties, 
and many hours of trouble shooting. The following is a list of vi- 
olations and their effects. Also, there are changes to COBOL syntax 
which may cause a program which previously was error free to fail 


syntax or the latest COBOL Compiler. 


a. It is now a syntax error to omit an INVALID KEY statement 


on a READ of a random disk file. 


b. When the FILE-LIMITS clause is involved, it is a syntax 
error if a WRITE statement does not contain an INVALID KEY 
or AT END statement. 


c. Run-time failures can occur if an alternate area (buffer 
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and work area) is not defined for random disk files 

{CP keeps track (by actual disk addresses) of the rec- 
ords it has read by virtue of previous SEEK operations, de- 
struction of a record by the object program in a buffer 
(buffer only technique) and subsequent request for a READ 
of that record will cause the MCP to "Logically Read" the 
same record, i.e., return control to the program pointing 
to the same destroyed record. This will only be true if 
an intervening 1/0 has not changed the actual disk ad- 
dresses maintained by the MCP for that file in the FIB 
(File Information Block). 


d. It is invalid to have more than one file utilizing the 
SAME AREA OPEN at the same time. A run time -- INV FILE 
OPEN message, and program termination will occur if a pro- 
gram attempts to OPEN a file that shares buffers without 
first causing a CLOSE RELEASE or CLOSE LOCK of the sharing 
file. 


e. It is invalid to change the name of a file by the program 
after it is OPEN. An attempt to CLOSE a file by a name 
different than when it was OPENed will result in program 


termination and an -- INV FILE CLOSE. 


f£. An -- INV CONTROL INST message will be displayed if a pro- 
gram attempts to ZIP a name change to a file that is cur- 


rently in use by any program. 


g. An attempt to purge or remove a file in use by any program 
will cause an appropriate response and be disallowed. A 
remove request will yield an -- INV CONTROL INST and a 
CLOSE PURGE by a program when that file is in use will 
yield a ** LOCKED FILE message and suspension of the of- 


fending program until the file is no longer in use. 


NOTE 


A straight CTIOSE is not sufficient 
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NOTE (cont) 
buffer release, I/O assignment 
table linkage, and lock file 
maintenance is only affected by 
use of RELEASE or LOCK in the 
CLOSE statement. 
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PROGRAMING EXAMPLES 


The examples contained in this appendix are for reference or educa- z 
tional purposes and are not to be construed as being the only method 
possible to obtain a given result. Experience in the COBOL language 

is greatly enhanced by referencing simple programs or portions of a 
program and progresses at the rate of a programmer's perception 

of given problems. This appendix attempts to relate certain ele- 

ments of the language so that a programmer can quickly perceive the 


entire spectrum of the rules and usage of the COBOL syntax. 
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Figure G-3. 
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APPENDIX G (cont'd) 


Extracted Square Input Square of Extracted Square 
1.90000 1,9N900 1.000090 
1041423 2.99090 1.99998 
1673205 3.09000 2299999 
2.90000 4.09000 4.00000 
20? 3606 5.09090 4.99996 
2273606 5.qn000 &.99996 
2.48988 6.99000 5.99995 
2064575 7.909000 6499999 
2064575 7.09000 6299999 
520000 ?5.09000 25.00000 
5.47722 30,00000 29.99993 
6032455 40.09000 39,99993 
7207105 5§0.00000 89.9996A 


Figure G-4. Example Output of Copy Replacing 
and Square Root Program 
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PENDIX G (cont'd) 


a. 


< 


901010 
001020 
001030 
001040 
0010590 
001060 
001079 
001080 
001090 
001100 
001130 
003120 
001130 
002140 
001150 
001160 
001170 
001180 
001190 
001200 
002010 
002020 
002030 
002080 
002050 
002060 
002070 
002080 
002090 
002100 
002110 
002120 
002130 
002140 
002150 
002160 
002170 
002180 
002190 
002200 
003010 
003020 
003030 
003080 
003056 
003060 
003070 
003080 
003090 
003100 
003110 
003120 
003130 
0031480 
003150 
003160 
003170 
003180 
003190 
003200 
999998 


IDENTIFICATION DIVISION. 
PROGRAM®ID. EXAMPLE OF SORT. 


INSTALLATION. BURROUGHS HOME OFF ICEs DETROIT. 


REMARKS THIS PROGRAM ILLUSTRATES THE USE UF THE SORT VERB 
WITH BOTH AN INPUT ANO QUTPUT PRUCEDURE AND THE 


USING GIVING OPTION. 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION, 
INPUT*DUTPUT SECTION, 
FILE*@CONTROLs 
SELECT SORTIT ASSIGN TO SORT DISK. 
SELECT DISKIN ASSIGN TO DISK, 
SELECT TAPEQT ASSIGN TO TAPE. 
DATA DIVISION. 
FILE SECTION. 
SD SORTIT FILE CONTAINS 20 BY 100 REC 
O1 SRTREC. 
03 SRTSKEY Pc 92 


OROUS, 
Ode 


03 FILLER PC XC90)» 


FO OISKIN FILE CONTAINS 20 BY 100 REC 
O01 =INPPREC, 


03) IN@f0 PC 9(10). 
03 FILLER PC XC 900 
FD TAPEOT. 
Qi QUT*REC, 
03 QuT?I0 PC 910). 
O3 FILLER PC XC90)0 


PROCEOURE DIVISION. 
OOS“USING*GIVING SECTION. 
O10°SORT. 


SORT SORTIT ON ASCENOING KEY SRT@KEY 


USING OISKIN GIVING TAPEQT LOCK, 
OIS*SORTZNPUTPOUTPUT SECTIONG 
O20°SORT,. 


SORT SORTIT ENO ON ERROR ON DESCENDING KEY SRT@KEY 


INPUT PROCEOURE IS 030°INPUT 
QUTPUT PROCEDURE IS 050°0UTPUT. 
STOP RUN, 

OJO*INPUT SECTIONe 

035°OPEN, 
OPEN INPUT DISKINe 

oa0"READ, 


REAO DISKIN AT END GO TO O45CLOSE. 
IF IN®IO NOT NUMERIC GO TO O40°READ. 


MOVE INP°REC TO SRTREC. 
RELEASE SRTRECe 
GO TO O40°READ. 
OaS°CLOSE, 
CLOSE DISKIN WITH RELEASE. 
O50°QUTPUT SECTIONS 
O5S5°0PEN. 
OPEN OUTPUT TAPEOT. 
O60°RETURN, 
RETURN SORTIT AT END GO TO O65°FIN 
IF SRT*KEY EQUAL O ADD 1 TO TALLY. 
WRITE OUT*REC FROM SRTREC. 
GO TO O60eRETURN. 
O65°F INISHED. 
OISPLAY TALLY * ZERO RECORDS", 
CLOSE TAPEQT WITH LOCK. 
END“OF “JUB, 


ISHEDe 


COMPILE DATE 15:26 06/08/70 USING 040/70 COMPILER, PROGRAM ID IS EXAMPL. 
COMPILER RELEASE NUMBER?! ASK 4-0 


ELAPSED TIME 10 


ELAPSED TIME IS TOTAL CLOCK TIME» NOT TIME CHARGEABLE TO COMPILATION» 


PROGRAM REQUIRES 


00061 SYMBOLIC RECORDS COMPILED AT 


TOTAL CORE REQUI 


3 SECONDS. COMPILER SIZE 30000 BYTES: 
20 DISK SEGMENTS OF 100 BYTES EACH. 
RED IS 11600 BYTESe 


LOW ADDRESS HIGH AUDRESS 


RESERVED MEMORY 000000 
DATA DIVISION 000252 
FIXED SEGMENT CONSTANTS 001964 
FIXED SEGMENT INSTRUCTIONS 002020 
STACK 002856 


OISC FILE HEADER 


s 


35 RECORDS PER MINUTE. 


000252 
001964 
002020 
002856 
023000 


000252 
001712 
000056 
000836 
020144 
001000 


Figure G-6. Example of Sort Program 


APPENDIX G (cont'd) 


USE*SORT 
USt*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
US€esorT 
USE*SORT 
USeesorT 
USE*SORT 
USE*SORT 
USE*SoRT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SoRT 
USE*SORT 
USE*SORT 
USE*SORT 
USE=SORT 
USE*SORT 
USE*SoRT 
USE*SORT 
USE*SORT 
USE*SORT 
USE=SORT 
USE*SORT 
USE*SORT 
USE=SORT 
USE*SORT 
USE*SORT 
USE*SORT 
USE*SORT 


LENGTH IN OIGITS 
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252 
252 
252 
252 
252 
252 
252 
252 
252 
252 
252 
252 
232 
252 
252 
252 
332 
332 
552 
732 
1012 
1012 
1032 
1212 
1620 
1620 
1640 
1620 
2038 
2038 
2038 
2038 
2132 
2132 
2132 
2132 
2154 
2346 
2352 
2352 
2352 
2374 
2376 
2408 
2470 
2488 
2518 
2526 
2526 
2548 
2582 
2562 
2604 
2604 
2638 
2682 
2730 
2738 
2738 
2798 
2620 
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APPENDIX G (cont'd) 


000100 TOENTIFICATION OLVISION, SEARCH 252 
000200 PROGRAM*I1D, SRCHER. SEARCH 252 
000300 REMARKS. EXAMPLE OF SEARCH VERB USING OPTIONS 1 AND 2, SEARCH 25? 
000400 ENVIRONMENT OIVISION, SEARCH 252 
000500 CONFIGURATION SECTION, SEARCH 292 
000600 INPUTeOUTPUT SECTION: SEARCH 952 
000700 FILE=CONTROL. SEARCH 252 
000800 SELECT CARDS ASSIGN TO REAVER RESERVE 2. SEARCH 252 
000900 SELECT DSK°FILE ASSIGN TO OISK ACCESS SEQUENTIAL. SEARCH 252 
001000 DATA DIVISION, SEARCH 252 
001100 FILE SECTION. SEARCH 252 
001200 Fo CARDS. SEARCH 252 
001300 O1 CARD-REC. SEARCH 740 
001800 03 TRANSACTION@ID PIC x(6). SEARCH 740 
001500 Q3 TRANSACTION@SPEC REOEFINES TRANSACTION®ID, SEARCH 752 
651666 OS TRANSACTIOGN@CODE PIT 99, STARCH 746 
001700 OS FILLER PIC XC4&)o SEARCH Taa 
001800 03 TRANSACTION@DATE PIC 9C6de SEARCH 752 
001900 03 TRANSACTION@“AMOUNT PIC 9(8)V99, SEARCH 76a 
002000 03 FILLER PIC K¢58)6 SEARCH 768 
002100 FO OSK*FILE SEARCH 76a 
002200 FILE CONTAINS 20 BY 500 RECORDS SEARCH 900 
002300 VALUE OF IDENTIFICATION eTRANL2" SEARCH 900 
002800 BLOCK CONTAINS 10 RECORDS. SEARCH 900 
002500 Ot OSKk°REC. SEARCH 1180 
002600 03 OATE* JULIAN PIc 999 CMP. SEARCH 1180 
002700 03 cOUNTR USAGE IS INDEX. SEARCH 1183 
002800 03 ODSK*ARRAY OCCURS 8 INDEXED BY Ixel x92. SEARCH 1168 
002900 OS DSK*TRANSACTION-COUE pIc 99 CMP. SEARCH 1168 
003000 OS DSK*TRANSACTION@DATE PIC 906). SEARCH 1190 
063160 05 OSK*TRANSACTION*“AMOUNT PIC 9(C8)V99 CHP, SEARCH 1202 
003200 WORKING=STORAGE SECTION, SEARCH 1380 
003300 77.) TEST@VALUE VALUE 6 PIC 9¢6) CMP. SEARCH 1380 
003400 O01 CONTROL@=VALUES. SEARCH 1386 
003500 03 FILLER VALUE "012345" PIC xC6)0 SEARCH 1386 
003600 03 FILLER VALUE Of PIC 99 cup, SEARCH 1800 
003700 03 FILLER VALUE "812345" PIC X(6)6 SEARCH 1402 
003800 03 FILLER VALUE 02 PIC 99 CMP. SEARCH aia 
003900 OL CONTROL@ARRAY REDEFINES CONTROL*VALUES. SEARCH 1416 
004000 03 cONTROLS Occurs 2 INDEXED BY INDEXel. SEARCH 1386 
004100 05 CONTROL®ID PIC x(6)~ SEARCH 1388 
008200 05 CONTROL*TRANSACTION Pic 99 cme, SEARCH 1400 
0040300 O01 COMPANY=VALUE, SEARCH 1202 
004400 03 FILLER PIc 9¢24) CMP SEARCH 1816 
004500 VALUE 010203080506070809101112+ SEARCH 1816 
004600 03 FILLER PIc 9¢24) CMP SEARCH 1440 
004700 VALUE 131415161718192021222324, SEARCH 1440 
004800 O01 COMPANY=TABLE REDEFINES COMPANY=VALUE, SEARCH 1468 
004900 03 COMPANY°NUMRBERS PIc 99 Cup SEARCH 1416 
005000 OCCURS 24 INDEXED BY INDEX=2. SEARCH 14016 
005100 PROCEDURE Division. SEARCH 1a6a 
005200 OOL=START. SEARCH 1852 
005300 OPEN INPUT CARDS» SEARCH 1852 
005400 OPEN OuTPUuT OSK*FILE. SEARCH 1A7a 
005500 SET Ixe1 TO 0 SET Ixe2 TO 8 MOVE 6 TO TALLYs SEARCH 1896 
005600 READ CARDS. SEARCH 1950 
005700 OO2*BINARY@SEARCHe SEARCH 1976 
005800 SET INDEx*2 TO TALLY. SEARCH 1976 
005900 SEARCH COMPANY@NUMBERS VARYING INDEx=2 AT END STOP RUN SEARCH 2936 
006000 WHEN COMPANY*NUMBERS CINDEx"2) > TRANSACTION@CNOE SFARCH 262 
006100 COMPUTE TALLY = TEST@VALUE / 2 SEARCH 2098 
006200 MOVE TALLY TO TESTeVALUE SEARCH 2120 


Figure G-7. Example of SEARCH Verb Usage (Sheet 1 of 2) 
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APPENDIX G (cont'd) 


006300 GN TO VO2*BINARY*SEARCH SEARCH 2180 
006400 WHEN COMPANY®NUMBERS CINDEx"2) & TRANSACTION®CNDE SFARCH 2198 
006500 GD TO 004*PROCESS. SEARCH 2232 
006600 004=PROCESS, SEARCH 2300 
006700 SET IX" UP BY le SEARCH 2300 
006800 READ CAROS AT END GO TO OO05"EQ Ue SEARCH 2300 
006900 MOVE DATE TO DATE@JULTAN. SEARCH 2352 
007000 MOVE TRANSACTION®AMOUNT TO DSK=*TRANSACTION®AMOUNT (Ix*1)6 SEARCH 2392 
007100 MOVE TRANSACTION*DATE TO DSK*TRANSACTION@DATE CIx91), SEARCH 2428 
007200 SEARCH ALL CUNTROLS SEARCH 2464 
007300 AT END MOVE O TO OSK=TRANSACTION®@CODE c(Ix*1) SEARCH 2468 
007400 WHEN CONTROL*IO CIx*1) © TRANSACTION@ID0 SEARCH 2508 
007500 MOVE CUNTROL®TRANSACTION CINDEXe1) To SEARCH 2570 
007600 DSKeTRANSACTION®CODE ¢Ixel), SEARCH 2614 
007700 If Ixel 2 Ix*2 SEARCH 2684 
007800 SET COUNTR TO Ixet SEARCH 2684 
007900 WRITE OSK*REC SEARCH 2710 
008000 SET Ix"! TO 0. SEARCH 2728 
008100 GO TO 004-pROCESS. SEARCH 2770 
008200 O05"E0 Ns SEARCH 2796 
008300 SET [xe DOWN BY te SEARCH 2796 
008400 SET COUNTR TO Ixel, SEARCH 2796 
008500 WRITE OSK®REC, SEARCH 2832 
008600 CLOSE DSK*FILE LOCK SEARCH 2874 
008700 STOP RUN» SEARCH 2874 
008800 END*OF*yOB6 SEARCH 2902 


COMPILE DATE 16:28 06/09/70 USING 040/70 COMPILER. PROGRAM ID IS SRCHER. 

ELAPSED TIME 70 SECONDS. COMPILER SIZE 30000 BYTES. COMPILER RELEASE NUMBER? ASR 4.0 
ELAPSED TIME IS TOTAL CLOCK TIME» NOT TIME CHARGEABLE TO COMPILATION. 

PROGRAM REQUIRES 19 OITS«k SEGMENTS OF 100 BYTES EACH. 

00088 SyMBOLIC RECOROS COMPILED Af 75 RECOROS PER MINUTE. 

TOTAL CORE REQUIRED IS 3308 BYTES. 

TOTAL NUMBER OF WARNING MESSAGES IS 002 INCLUDING NO SEQUENCE ERRORS. 


LOW ADDRESS HIGH ADDRESS LENGTH IN DIGITS 


RESERVED MEMORY 000000 000252 000252 
OATA DIVISION 000252 001524 001272 
FIXED SEGMENT CONSTANTS 001528 001548 000024 
FIXED SEGMENT INSTRUCTIONS 001548 0029048 001356 
INPUT OUTPUT BUFFERS 002908 005416 002512 
STACK 005416 006000 000584 
DISC FILE HEADERS 001000 


Figure G-7. Example of SEARCH Verb Usage (Sheet 2 of 2) 
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Figure G-8. 


and 6, will be gathered into one fixed non- 


53 


4, 


3; 
overlayable segment. 


2, 


Sections 1, 


The memory map at the end of the COBOL listing 


specifies the amount of memory required for "Fixed Segment Instruc- 


tions", 


Gains Section 08 and Miscal-chg Section 08, will be gathered as 


the first overlayable segment because it is above the SEGMENT-LIMIT 


as specified in the OBJECT-COMPUTER paragraph. 


Section 15, 


Initialization 


is the second overlayable segment. 
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Section 15, is the largest of the two (Section 8 and 15) overlayable 


segments within the program; therefore, the memory map at the end 


of the COBOL listing specifies the amount of memory required for 
"Largest Overlayable Segment 02". 
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APPENDIX H 
UTILIZATION OF CORE DUMP FOR 
B 2500/B 3500/B 4500 COBOL DEBUGGING 


GENERAL. 
Frequently the debugging stage of program development requires an 
examination of object-time-events during the program's execution 


as a post-mortem evaluation. 


The B 2500/B 3500/B 4500 software systems offer several means for 
such examination. This appendix examines one of them; the program 


initiated memory "snapshot" (core dump). 


A memory dump is frequently the major contributing data available 
for determining the cause of a DS or DP condition. It can also be 
a valuable tool in other circumstances, such as examining a trace, 


monitor, file dump, or, other data. 


Before examining the format, content, and/or use of a given memory 
dump, it will be beneficial to summarize the mechanics by which a 


memory dump can be obtained. 


OBTAINING A MEMORY DUMP. 


A memory dump may be initiated in the following ways: 


a.» By the operator. At any time during program execution, the 
operator may DM (dump memory and continue) or DP (dump mem- 


ory and discontinue) the program. 


be. By the MCP. If, in conjunction with the EXECUTE Card, a 
2 MEMDUMP Card is included, then an abnormal EOJ of the 


program causes an automatic core dump to be initiated. 


c. Programmatically. At any point in the program, the state- 
ment TRACE 20 (in COBOL) will cause a "snapshot" memory 
dump to be taken at that point in the program during exe- 
cution, and is equivalent to a DM, e.g., the program con- 


tinues after the dump has been accomplished. 
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CORE DUMP FORMAT. 


a. Headings and general program information (name, status, 


Base and Limit registers, address register, etc.). 


b. File information blocks (FIB) which consist of 200 digit 
blocks maintained within the specified program's area and 
contains flags, counters, and addresses detaiiing the na- 
ture of the file, and their machine absolute address. Also 
contained is other file information pertaining to all files 
attached to the program at that given moment, and IOAT 
flags (input-output Assignment Table)- a MCP table contain- 
ing flags, links, and addresses detailing the status of the 


file and the device involved. 


c. The contents of memory, between the Base and Limit regis- 
ters, is printed 100 digits of core locations to a line. 
The letters A through F represent the hexadecimal undigits 
10 through 15 which are composed of consecutive bit com- 
binations 1010 through llll. Large areas which are greater 
than 100 digits, and which contain only the digit zero (0) 
are shown as a single line of asterisks (*); the address 
on the next line shows the end of the "blank" area. Each 
print line, prior to the dumped memory information, re- 
flects the program's base relative address, and pertains 


to the first digit on that line. 


COBOL PROGRAM MEMORY ORGANIZATION. 


The main body of the core dump can best be understood by a discus- 
sion of a COBOL Program's memory organization and structure. The 
several portions of a given COBOL Program that can be readily dis- 


tinguished are: 
a. Reserved Memory. 


1) Program Reserved Memory. 
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2) COBOL Program reserved areas. 


b. FILE SECTION (FIB's, buffer links, label areas, and 


record areas). 
c. WORKING STORAGE entries. 
d. Fixed segment constants. 
e. Auxiliary code. 
f. Overlayable code. 
g. Fixed segment code. 
h. Buffers. 
i. Stack. 
j- Disk File Headers and IOAT entries. 


With the exception of Program Reserved Memory, none of the above 
ever occur at fixed locations, and some may not appear at all. A 
more detailed discussion of these areas is contained in the para- 


graphs that follow. 


PROGRAM RESERVED MEMORY. 


Program Reserved Memory (locations O through 63) of the program be- 
gins at base relative location zero (0), and is of the same format 
for all B 2500/B 3500/B 4500 Programs. Its format is: 


Location Type Remarks 
0-7 Switches SW8, SW1 through SW7, one digit 
each. 
8-15 Tx1 Seven digits plus a high-order sign 


and is used in subscripting. 


16-23 IX2 Same as IX1 above. 
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Location Type Remarks 
24-31 1x3 Points to the current stack entry 


when PERFORMS (NTR) are active. 


32-33 Normally not used. 
34-37 . Used by block/deblock code. 
38-39 Indirect field Used primarily in EXAMINE constructs. 


length counter 


4O-45 Stack pointer Points to the next available area in 
the stack for PERFORM (NTR) entries. 


46-47 Not used. 


48-63 Edit Table Eight bytes of edit insertion 


characters. 


COBOL RESERVED MEMORY. 

COBOL Reserved Memory (locations 63 through x) is variable in length 
though it frequently terminates at location 252. It contains TALLY, 
TIME, DATE, program's segment dictionary, and edit macro operator 


strings. 


FILE SECTION. 
This section contains the program files (if any ) and is structured 


as follecws: 


a. File Information Blocks (FIB). 
b. Buffer links and descriptors. 
c. Label area. 


d. Record area (work area). 


Structures a. through d. are repeated for each file ASSIGNed in a 
program. For the structure, meaning, and contents of the FIB and 
TOAT, reference should be made to the B 2500/B 3500 MCP Information 


4 


Manual. 


APPENDIX H (cont'd) 


The FIB is maintained in the program area, thus, the FIB's for all 
of a given program's files will be found in the core dump body. 
Further, all non-disk ASSIGNed files attached to the program at the 
time of the dump (OPEN or CLOSEd, but not RELEASEd ) are reproduced 
immediately above the core dump body with other pertinent informa- 


tion about the file (file-ID, status, device assignment, etc.). 


Following the 200 digit bodies of the FIB are a number of 40 digit 
entries, one for each I/0 area pertaining to that file, which con- 
tain the result and the start descriptors for the file buffer as 
well as other information needed for USE routine exit mechanisms and 
variable length operations. These areas are shown only in the dump 
body and the addresses may be used to locate the buffers for the 
file. In COBOL Programs, file buffers are located beyond the pro- 
gram's code structure. For unblocked, NO ALTERNATE AREA files, the 


record area and file buffer are one and the same. 


The label area for a given file follows the FIB and the "buffer 
status blocks" and is normally composed of 80 bytes. See the COBOL 
or MCP manuals for the label format. Disk files, data communica- 


tions, and unlabeled files have 20-byte label areas. 


The file's record (work) area immediately follows the label area. 


WORKING-STORAGE ENTRIES. 
Immediately beyond the file's work areas is the WORKING-STORAGE 
SECTION as declared by the COBOL Program. 


FIXED SEGMENT CONSTANTS. 
Immediately beyond the WORKING-STORAGE entries is the "Compiler's 
WORKING-STORAGE", or fixed segment constants. This area contains 


several important areas including: 


a. Literals declared in the PROCEDURE DIVISION. 
b. ALTER switches; GO TO DEPENDING ON tables. 
c. O1 LABEL area. 

d. Overlay mechanisms. 

e. INDEXes and other uses. 
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AUXILIARY CODE. 


This consists of the following codes, as applicable: 


a. Blocking and/or deblocking code for blocked files. 
b. Exponentiation code. 
c. MONITOR code. 


d. USE routines. 


OVERLAYABLE CODE. 
This consists of user coded areas which were declared to be over- 


layable. 


NON-OVERLAYABLE CODE. 
This consists of that part of the Object Program which is always in 


memory, and cannot be overlaid by any other part of the program. 


BUFFERS. 
The size and number of input-output buffers depends on the number 


and type of files. 


STACK. 

Stack consists of a portion of memory reserved for PERFORM (NTR) 
subroutine linkage and return mechanisms. Each stack entry created 
for user coded PERFORMs is 20 digits in length. See appendix I 
for a more detailed explanation of the use and organization of the 


program stack mechanism. 


DISK FILE HEADERS AND IOAT ENTRIES. 
For programs processing disk files, the disk file header and IOAT 


entry for that file will be found in core memory beyond the Limit 
register of a given program, and will be shown on the core dump. 

See the B 2500/B 3500 MCP Information Manual for formats and content 
explanation of the IOAT. One such entry (each 248 digits long) oc- 
curs for each disk file. Note that IOAT entries for disk files are 
kept beyond the Limit registers. All others are maintained as MCP 
IOAT table entries within the MCP. 
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MISCELLANEOUS DUMP LISTING INFORMATION, 
A printout of the JRT and MIX entries is provided on a dump listing 
for a given program. Some of the uses and methods of a dump listing 


are as follows: 


ae Since the dump is written out in digit format and much of 
the program data is likely to be in byte (DISPLAY) format, 
a knowledge of the EBCDIC code set, or a table of codes, 


is needed (see appendix C of this manual). 


Little problem should be involved in distinguishing digit 
and byte information; the addresses shown on the right-side 
of the COBOL listing can be correlated with the dump. Ref- 
erence to the COBOL listing will establish the declared 
format (PICTURE). 


b. The heading contains valuable information, including: 
1) Program name and mix number. 


2) Program status and requirements if not running, 


e.g., no file. 
3) P.A.R. - the next instruction to be executed. 
4k) Base and Limit registers. 
5) Processor toggles. 


For some problems, evaluation of a given FIB is valuable, parti- 


cularly when subscript flags are needed. 


Information contained in Program Reserved Memory is frequently very 


valuable. For example: 
a. Switches (where used) are located in locations 0 through 7. 
b. Subscript errors may be detected through examination of 


the Index Registers and the subscript fields. 
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c. Any GO TO out of range of a PERFORM can be diagnosed 
through use of Index Register-3, location 40-45, and in 


conjunction with the stack. 


A proper analysis of dumped information requires a compilation pro- 
gram listing to determine the location of files, data areas, and 


(less frequently) code. 


As can be seen, core dumps are a helpful, and at times, a very 
necessary tool when debugging certain common program errors. Know- 
ledge of the format and content of memory dumps can be fully appre- 
ciated only through examination of a number of them. However, core 
dumps are not the only debugging aid available to the B 2500/B 3500/ 
B 4500 programmer. A good programmer is aware of all the tools 
available to him and is able to determine which is best for the 


evaluation of his problem at hand. 


4 
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APPENDIX | 
B2500/B 3500/B 4500 COBOL 
DEBUGGING TECHNIQUES 


GENERAL. 
This appendix describes the debugging aids available to the pro- 
grammer for dealing with address errors, instruction errors, and 


invalid file actions. 


ADDRESS ERRORS. 


An address error is caused by any of the following conditions: 


a. An attempt to address below the Base register or above 
the Limit register via program stack overflow or sub- 


scripting errors. 


b. An invalid address in an instruction (i.e., an address 


containing undigits). 


c. An illegal address for a particular instruction (e.g., 


non-word aligned address for the MOVE words instructions). 


Any attempt by a program to execute an instruction containing an 
address error results in a processor interrupt to the MCP. The MCP 
analyzes the interrupt, suspends the offending program, and reports 


the address and disk segment at which the error occurred. 


PROGRAM STACK OVERFLOW. This condition is diagnosed by taking a 
memory dump of the object program at the time of the address error 


and looking at the addresses of the error (which is usually a PER- 
FORM). 


The program stack (the last several hundred digits of a program 
immediately preceding the limit register) is used by the PERFORM 
statement, COMPUTE statement (exponentiation), COBOL generated file 
blocking/deblocking functions, and other routines. Discussion here~ 
in will be limited to the actions encountered when using the PERFORM 


statement. 
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Every time a PERFORM statement is executed in an object program, 

an entry will be created in the program stack. Inversely, every 
time the PERFORM statement is exited from, in the normal way, the 
entry is removed from the program stack and the next PERFORM state- 
ment encountered in the program will create an entry in the same 


memory location as was previously occupied by the one just removed. 


In cases of "nested" PERFORMS, all pertinent entries in the program 


stack will be created continuously. For example: 


COBOL Statement Stack Contents 
1. 1. Zeroes (stack empty). 
2. PERFORM A. 2. Entry for A (stack is 1 deep). 
3. A. EXIT. 3. Entry A removed (zeroes). 
4, ADD X, Y. 4. Zeroes (stack ante): 
5. PERFORM B THRU D. 5. Entry for B (stack is 1 deep). 
6. B. PERFORM C. 6. Entry for B followed by an entry 


for C (stack is 2 deep). 


7. Cc. EXIT 7. #|~Entry C removed (zeroes) (stack 
is l deep). 


8. ADD X, Y. 8. Entry for B. 
9. D. EXIT 9. Entry B removed (zeroes). 
10. GO TOD. 10. Zeroes (stack empty). 


Note that in B 2500/B 3500/B 4500 COBOL the EXIT at D is unnecessary 


and is shown for documentational purposes only. 


Since the program stack is finite, deeply nested PERFORM statements 
within an object program could fill the stack to an overflow condi- 
tion, however, such instances can be overcome by increasing the size 
of the program stack through use of the COBOL MEMORY SIZE clause and 
recompiling the source program. More commonly, however, the stack 


is filled due to an incorrect exit from a PERFORMed routine (GO TO 


APPENDIX | (cont'd) 


out of range of the specified PERFORM ) number of times such that 
the earlier stack entries are not removed. Note that stack entries 
are removed only by the normal "fall-out" of a PERFORMed routine. 
Input and output procedures pertaining to SORT statements are con- 
sidered by the compiler as being PERFORMed routines and will create 
object code as such. Also, great care should be taken not to go 
out of the range of the specific PERFORM statement when PERFORMing 
READ statements which contain AT END or INVALID KEY clauses, or, 
WRITE statements containing INVALID KEY clauses. 


Diagnosis of program stack overflow may be accomplished by: 


a. Looking at the program stack in a memory dump (the end 
of the COBOL listing shows the core location of the 
beginning of the stack). 


b. If the program stack is full (i.e., the locations from 
the first position of the stack to the end of the program's 
core area contain non-zero entries - see format below) 


look for a repetitive pattern. 


Program Stack Format 


Size 
Entry (digits) 

Return Control Address (address of the 6 
instruction immediately following the 

PERFORM statement). 

Index-register-3 (1X3) contents. 8 
Hardware indicator setting. 2 
Parameter used by the COBOL compiler's 4 


EXIT logic. 
As can readily be seen, a total of 20 digits are used. 


c. When a repetitive pattern is found, go to the Return 


Control Address (as specified in the recurring stack 
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entry) of the compiled COBOL source listing for the given 
program. The instruction preceding that address will con- 
tain a PERFORM. The cbject cede compiled for that PERFORM 


statement should be examined for out of range GO TO's. 


On occasion, the address reported on the SPO by the MCP (using the 
address error message) is pointing at a COMPUTE statement or, in 
some cases, at an address preceding the PROCEDURE DIVISION code. 
The latter case is caused by a compiler generated NTR routine such 
as required fer blocking/deblocking of records, monitor, exponenti- 
ation, or overlay code. The fault is still attributable to a GO TO 
which is out of range of a specific PERFORM statement. While the 
reported SPO address is worthless in this case, the program stack 


may still be used to isolate the problem. 


SUBSCRIPTING ERROR. A subscript error is caused by increasing the 
value of the subscript beyond the table size to which it refers, 
thus, destroying (or using) whatever code is resident in those areas 
of core. An address error results if program control attempts to 
execute one of the destroyed core areas and finds an address out of 


range of the Base and Limit registers. For example: 


O01 TABLE. 
03 ENTRY PC 9 (6) OCCURS 100 TIMES. 
Ol SUBSCRIPT PC 9 (4). 


LOOP. IF ENTRY (SUBSCRIPT) = TEST-VALUE, GO TO FOUND-IT, ELSE ADD 
1 TO SUBSCRIPT THEN GO TO LOOP. 


Obviously, if an equal condition is not found in the above proce- 
dure, the value of SUBSCRIPT will develop beyond the specified 100 


times of occurrence and can go as high as 9,999. 


If the contents of SUBSCRIPT multiplied by 12 (the length of each 
SABLE entry in digits), rus ie veces Setters ee TARTE, axceads 


the LIMIT register, an address error will result. 


T-4 
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If the maximum value of SUBSCRIPT multiplied by the length of the 
table entry plus the base address of TABLE is not greater than the 
LIMIT register, then an infinite loop will result and the Overflow 
Indicator will eventually be turned ON. Note that any attempt to 
WRITE into a subscripted field when SUBSCRIPT has exceeded the 
bounds of TABLE can wipe out procedure code, work areas, etc., and 
usually causes an instruction error. Such a situation can be diag- 
nosed by examining the address of the error in respect to the COBOL 
source program compilation listing. It will usually consist of an 


indexing (subscripting) operation. 


A memory dump at the time of an address error will provide the value 
of a given subscript and Index Register-1 (used for the subscripting 
operation) which is a signed seven (7) digit field (8 digits in- 
cluding sign) starting at base relative location 00008. If the add- 
ress of the beginning of a table plus IX1 is greater than the end 

of the program, the cause of the failure is obviously a run-away 


subscript. 


INVALID ADDRESS. An address containing undigits (Hex 10-15) may be 
accomplished in a COBOL program by attempting to use a subscripting 
value consisting of those special characters constructed with un- 
digits in the low-order digit position of the byte. An examination 
of the contents of a given subscript field in a memory dump should 
immediately show up the problem. Index Register-1 will also contain 


an undigit(s) in other than the high-order sign position. 


The same result will occur when undigits are moved into a given 
subscript field (e.g., MOVE @FF@ TO SUBSCRIPT, or an equivalent 


move). 


ILLEGAL ADDRESS. This condition should never occur in a COBOL ob- 
ject program. The B 2500/B 3500/B 4500 COBOL Compiler(s) protects 
against this eventuality by correctly adjusting addresses. Such an 
occurrence is normally attributed when a COBOL source program is in- 


correctly using the ENTER SYMBOLIC capabilities of the language. 
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INSTRUCTION ERROR. 


An Instruction Error may be caused by: 


a. An attempt to execute an OP CODE which is not legal to 


the processor, including: 


1) "Impossible" OP codes (those for which no processor 


instruction exists). 


2) Non-present options (floating point instructions on a 


machine not equipped with floating point hardware). 


3) Privileged instructions which are designed to be 


executed only by the MCP. 


b. An attempt to execute an instruction for which the re- 
quired MCP options are not present (e.g., Data Communica-~ 
tions instructions when the Data Communications MCP is not 


in control of the system. ) 


ILLEGAL OP CODE. An "impossible" OP code may be generated by a 
"runaway" subscript error, as discussed earlier, where a table is 
written beyond its limits and thereby wipes out the normal procedure 
code. The program eventually branches to the altered code and will 
usually cause the program to halt on an invalid instruction, or an 


Address Error, or, may even cause an invalid READ(s) or WRITE(s). 


Since the contents of the program instruction area of the object 

code is unpredictable due to the above circumstances, then any of 
the causes attributed to Instruction Errors can be generated. On 
very rare occasions, an altered program might not "blow-up" due to 


its containing no invalid OP codes or addresses in the altered area. 


It should be clear that the results of a MOVE into a table, which 


has been influenced by a "runaway" subscript are unpredictable. 


If File Information Blocks are improperly changed, via ENTER SYM- 
BOLIC, then an invalid READ, WRITE, OPEN, or CLOSE most assuredly 


will occur. 
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If procedure object code is changed in any way, then an Invalid 


Instruction or an Address Error can result. 


Diagnosis of problems dealing with illegal OP codes requires close 


examination of a memory dump to find destroyed areas. 


INVALID INSTRUCTION. A more common means of generating Instruction 
Errors is usually seen in programs using the SORT verb in conjunc- 
tion with an OUTPUT PROCEDURE. 


If an Invalid Instruction occurs at an address beyond the address 
of the last instruction of the program, then the cause is usually 
due to the passing of program control to the last paragraph of the 
program and a "fall-out" of that paragraph. The following three 
examples reflect the most probable cause of invalid instruction oc- 


currences. 
Example 1: 


END-PARA. CLOSE FILE-A. 
END-OF-JOB. 


Presumably a STOP RUN was neglected in END-PARA. 


A relatively rare (but possible case) involves nested PERFORM er- 
rors, however, as will be seen in example 3 on the following page, 
the following situation becomes a more common error in cases where 


the SORT intrinsic is used. 
Example 2: 


X. PERFORM A THRU D. 
A. ADD X, Y. 


C. PERFORM B. B. ADD M, N THEN GO TO E, 
E. ADDN, Y. 

D. EXIT 

END-OF- JOB 


Note that Paragraph B is incorrect in that a normal COBOL exit from 
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a PERFORMed paragraph is not taken (one must always "faii-out" of a 
PERFORMed routine). 


The stack entry created by the Paragraph C PERFORM statement is not 


going to be removed, thus, the stack appears as: 
Entry of x| Entry of C 


and the stack pointer (Index Register-3), which normally points to 
the currently-in-use stack entry, is in fact, pointing at the "Entry 


of Cc", 


The subroutine exit mechanism created in object programs by the 
compiler involves checking the currently-in-use stack entry to see 
if that entry “is mine" - i.e., does the PERFORM statement which 
created the current entry correspond to the PERFORM statement of 
this particular routine? This permits the complex overlapping of 


PERFORM statements which are acceptable to the B 2500/B 3500/B 4500. 


Since the current stack entry in the preceding example (Entry of c) 
does not correspond to the PERFORM statement of the X routine, the 

exit back to Paragraph A which follows paragraph X is not taken and 
"fall-thru" occurs. An Instruction Error (Invalid Instruction) is 

likely to occur at this point due to the fact that the next "“in- 


struction" is in fact the program's 1/0 buffers or stack area. 


A GO TO which is out of range of a nested PERFORM is much more likely 
to occur in the program body than at the extreme end of the program 
and in that case, unpredictable results will be detected in the pro- 


gram's execution. 
Example 3: 


When using the SORT verb, it seemingly is common 
practice to place the OUTPUT PROCEDURE pertaining 
to a sort as the last routine in a given program. 
ce the OUTPUT PROCEDURE is PERFORMed by the SORT 
tement (4,64, it is executed as a subroutine and 


the normal PERFORM exit mechanism is generated at the 


4 
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end of the OUTPUT PROCEDURE SECTION), therefore, any 
GO TO out of the range of a PERFORM within the OUTPUT 
PROCEDURE will also cause failure of a proper exit at 
the end of the OUTPUT PROCEDURE. Results will be as 
described for Case (B). This discussion also holds 
when the INPUT PROCEDURE is the last routine ina 


given program containing a SORT statement. 


Diagnosis for the preceding example involves: 


Recognizing that the invalid instruction address resides 
beyond the final executable instruction of the program, 


and: 


1) Examination of the current stack entry in the 
memory dump. This entry can be found by going 
to the address reflected in Index Register-3 
(core location 24) which is the current stack 


being referenced. 


2) The first six digits of the current stack location 
will pin-point the return control address (i.e., 
the address of the instruction which immediately 
follows the offending PERFORM). Reference to the 
COBOL listing, using the return control address, 
will identify the PERFORM statement causing the 
trouble. The object of that PERFORM should be ex- 


amined for GO TO errors. 


Note that the stack should contain at least two 
entries if this condition exists. The first isa 
result of PERFORMing the OUTPUT PROCEDURE by the 
SORT and the last entry is the address of the of- 
fending PERFORM. If more than two stack entries 
exist, then more than one GO TO “out-of-range" is 


involved. 
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There may be other stack entries beyond the "current" 
entry to which Index-Register-3 is pointing, however, 
these are not “live" (current) entries and should be 
ignored in as much as they have already been "removed" 


by earlier exit mechanisms. 


b. An invalid instruction caused by the lack of floating 
point hardware can occur in a COBOL program compiled 
with the COBOL compiler only if the program uses ex- 
ponentiation (e.g., COMPUTE A = B**c) and the floating 
point hardware is not an installed feature of the pro- 


cessor. 


c. An invalid instruction due to an attempt to execute a 
privileged instruction should never occur in a COBOL 


program. 


NOTE 
All of the above could occur if 
the program's code area has been 


destroyed by subscript errors. 


INVALID FILE ACTIONS (OPEN, CLOSE, READ, WRITE). 

In all cases of "DS" conditions, the MCP displays on the SPO the 
pertinent program name, its mix-index, program address register 
(P.A.R., e.g., the address of the next instruction to be executed), 
the segment of the program being executed and, in the case of in- 
valid file actions, the file-name about which the file action is 


concerned. 


For COBOL programs, the segment number reported is three (3) greater 
than the actual segment nuniber. Further, the segment number is not 
the number following the SECTION statement, e.g., ABLE SECTION 50; 

it is the segment number found on the right side of the COBOL listing 
just prior to the program address for that code line. The segment 
number assisned to the resident vortion of a program is not shown on 


the listing. The MCP reports it as being segment number three (003). 
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For invalid file actions, the P.A.R. reflects the address of an un- 
conditional branch instruction (BUN) following the branch communi- 
cate (BCT) for that operation. All BCT's (MCP calls) are of the 


form: 


BCT nnnn (nnnn = address in MCP) 
BUN X 
[Parametric information] 


x. (instruction following parameters ) 


The first parameter (6 digits) for all file actions points to the 
file information block (FIB) pertaining to that file. The other 
Parameters vary with the type of action to be performed and are dis- 


cussed below. 


The address of the FIB can be found on the right of the COBOL listing 
on the line pertaining to the FD for that file. 


The FIB can be very helpful in diagnosing the precise circumstances 
of a given problem. Frequently the problem is obvious, but since 
each illegal file action has more than one possible cause, the exact 
problem may be elusive. The most helpful portion of the FIB is 
FIBSTA, the sixteenth (16) digit of the FIB which contains file 


status information in the following combinations: 


= Open. 

= Closed; never opened. 

= Restricted - generally, END of file sensed. 
Closed; previously opened. 


or 7 = Opening next reel (tape). 


Oo Uw YN FE O 
I 


= Multi-file search in progress. 


Generally, only the first four codes concern the programmer while 


debugging. Examples follow: 


a. Invalid file OPEN - A request to OPEN a file generates: 


BCT 
BUN 
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XXKXXXX FIB address for file 
y OPEN type (I, 0, I/O or O/I) 
Zz OPEN variant (NO REWIND, REVERSE, etc.) 


An invalid file OPEN is most commonly due to an attempt 
to OPEN a file that had been previously OPENED and not 
yet CLOSED. 


Invalid file CLOSE - A request to CLOSE a file generates: 


BCT 

BUN 

XXXXXX FIB address for file 

y Variant (RELEASE, LOCK, PURGE, etc., 
REEL or FILE) 

Zz DCOM only 


An invalid CLOSE is generally due to a program call to 
CLOSE a file which has never been OPENed or that is al- 
ready CLOSEd. As with an invalid OPEN, the program output 
can frequently be used to distinguish the possible causes; 
if any confusion exists FIBSTA should be examined for a l 


(never OPENed) or 3 (previously OPENed). 


Invalid file READ - A READ generates: 


BCT 

BUN 

XKXXXKX FIB address 

YYYYYY End of file branch address 


An invalid file READ is generally due to an attempt to 
READ a file which is not OPEN or to READ beyond End-of- 
File. Less frequently, it is due to an attempt to READ 
a file which cannot be read Cases a print file or a tape 


which had been OPENed as OUTPUT). 
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These may be distinguished by FIBSTA: 1 or 3 indicates 
the file to be CLOSED; 2 indicates restricted (EOF sensed) 
and O indicates the file to be OPEN. 


NOTE 
For variable length records, an additional 
condition exists which is explained in 


example d that follows. 


Invalid file WRITE - A WRITE generates: 


BCT 

BUN 

XXXXXX FIB address 

YYYYYY for disk, invalid key branch; for branch 
(assembler only), end-of-page branch 

uuvv For printer, space and skip variants 


An invalid file WRITE is generally due to an attempt to 
WRITE a file which is not OPEN; or, when working with a 
sequential disk file, an attempt to WRITE a file after 
the INVALID KEY branch has been taken; or less frequently, 
an attempt to WRITE a file which cannot be written on 
(e.g., a card reader file, or, a tape file OPENed as 
INPUT). 


FIBSTA can be used to distinguish between an attempt to 
WRITE a file before it is OPENed or after it is CLOSEd3 
further, a WRITE initiated after End-of-File can be deter- 
mined by looking at the restricted flag in FIBSTA. 


Another method of generating an invalid file WRITE per- 
tains to variable-length records (FIBBLK, the 45th digit 
of the FIB can be referenced for a digit 2 code, which 


indicates variable-length records). 


The first four bytes of a variable-length record must 
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contain a modulo-2 (even) count of the number of bytes 
in the record including the four byte count indicator 
(the record must be composed of an integral number of 
words). 

Further, the count may not exceed the declared maximum 
record sizes. If either condition is not met, an invalid 
WRITE occurs. The problem may be diagnosed by noting: 


1) PIBSTA contains a zero (file OPEN). 
2) FIBBLK contains a 2 (variable-length). 


3) The first four bytes of the record are invalid (the 
number is odd, zero or exceeds FIBMRL divided by 2 
(FIBMRL, positions 20-24 in the FIB is the maximum 
record length, in digits)). 


In all cases, FIBSTA can help to narrow down the cause of 
the problem. The exact logic error which led to the in- 
valid operation can be as simple as a failure to OPEN the 
file. However, a knowledge of the file status at the time 
the MCP detected the error is very often the key to what 
has happened. 


e. Invalid File Required - This is rarely seen and is due to 
an attempt to OPEN a device in the wrong mode (e.g., OUT- 
PUT on the card reader, INPUT on the printer). 


£. EOF-No Label - This message is caused by READing a random 
disk file address into an area not yet assigned. Assume 
a random file with paging of 5 by 1000 records. Initial 
file creation OPENed pages 1,2,3, and 5. If a record with 
a key of 4000 to 4999 is READ, the INVALID KEY branch of 
the READ statement becomes effective. However, if an IN- 
VALID KEY branch was not coded by the programmer, an EOF 

LABEL occurs. This message is accompanied by the MCP! 


mae TAD wenn ren en A N™MAr Pat eo oe on ee 
vi ivi Lito Vag Ce A AND a WALL aiLy PJ CSuUuUcit 
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AT END option can also cause this error. 
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ACCEPT, 5-27, 6-2 
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ACCESS MODE, 3-9, 3-13, 3-14 
ACTUAL KEY, 3-9, 3-14, 9-10, 9-11 
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ADVANCING, 5-128 
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ALL, 2-3, 5-63, 5-81, 5-103 
ALPHABETIC, 5-74 

ALPHABETIC items, 4-56 
ALPHANUMERIC items, 4-57 
ALTER, 5-23, 5-32 


ALTERNATE AREA(S), 3-8, 3-12, 
5-96 

ALTERNATING, 3-16 
APPLY, 3-16 

AREA, 3-8, 3-10, 3-16 
Arithmetic expressions, 


5-8 


Arithmetic expressions, 
combination of symbols, 


5-9 
a=9 
ASCENDING, 4-28, 4-39, 5-112 
ASSIGN, 3-8, 3-9, 4-43 
ASTERISK-COL 7, 7-3 
AT END, 6-17, 6-21, 
AUTHOR, 2-1 
AUXILIARY, 


Arithmetic operators, 


6-23, 6-24 


5-128, 5-131 


BACKUP, 3-8, 3-11 

BEFORE, 5-123, 5-128 
BEGINNING, 5-123 

BLANK WHEN ZERO, 4-28, 4-31 
BLOCK, 4-8, 4-11, 5-96 
BLOCK CONTAINS, 4-8, 4-11 
1-12 

1-13 


Braces, 


Brackets, 


one 


BREAK, 6-5 

Buffers, 4-11, 4-12 
BY, 3-8, 5-55, 5-63, 
BZ, 4-28, 4-31 


5-82, 5-90 


CHANNEL, 5-128 

Character set, 1-1 

Characters, 3-4, 4-8, 4-11 

1-1 
1-2 
1-2 


Characters used for words, 


Characters used in editing, 


Characters used in formulas, 


used in 


1-2 


Characters 
punctuation, 


Characters used in 
5-74 
6-4 


relations, 1-3 
Class tests, 
CLOSE, 5-33, 
CMP, 4-29 

COBOL, 5-58 


COBOL Compiler control 


statements, 8-1 
COBOL language elements, 1-1 


COBOL Syntax, Appendix B 
7-1, 7-2 


Coding form representation, 


Coding form, 
7-1 


Combination of conditions and 
logical operators, 5-12 


COMMA, 3-6 

COMP, 4-29 

5-13 
Compilation card deck, 8-1 


Comparison of operands, 


Compiler-directing sentences, 5-3 
Compiler-directing sentences, 
execution of, 5-5 
Compiler-directing dj 
statements, 5-2 
Compound conditions, 5-15 
Compound conditions, 
abbreviated, 5-17 
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4-32, 4-33, 5-75 


Condition-name, 1-4, 4-4, 4-29, 
4-32, 4-33, 4-73, 5-75 
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4-37 
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1-13 
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9-10 
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CoPy, 4-8, 4-28, 5-8, 5-40 
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through 5-52 
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CORRESPONDING, 5-29, 5-77, 5-119 
CRCR, 5-67 
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Depending, 2-3 
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Disk, 3-9, 3-10 
Disk file handling, Appendix F 
4-15 
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DISPLAY, 4-65, 5-53, 6-7 
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ENTER, 5-58 
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ENVIRONMENT DIVISION, 3-1 
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3-18, 3-19 
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ERROR, 5-112, 5-123, 5-128 
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FD, 4-8, 4-9, 4-10 

FD and data~records, 
coding of, 4-10 
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FILLER, 4-28, 4-37, 
FILLER ADDED, 4-30 


4-6 
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FLOW, 9-4, 9-5 

FOR, 9-8 
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FROM, 5-27, 5-67, 5-90, 5-100, 
5-128, 6-2, 6-21, 6-23, 6-25, 6-26 
GIVING, 5-28, 5-55, 5-82, 5-112, 
5-118 

GO, 5-6, 5-69 
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Group items, 4-4 
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IDENTIFICATION, 4-8, 4-26 
IDENTIFICATION DIVISION, 2-1 
IDENTIFICATION DIVISION, 

coding of, 2-4, 2-5 

IF, 5-4, 5-5, 5-72 

Imperative sentences, 5-2 
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of, 5-4 

Imperative statements, 5-1 
INDEX, 4-29, 4-41, 4-68 
INDEXED, 4-28, 4-39, 4-41, 5-105, 
5-110 

Initial values, 4-69, 4-73 
INPUT, 5-85, 5-112, 5-123, 9-4 
INPUT-OUTPUT, 5-85, 5-123 
INPUT-OUTPUT SECTION, 3-8 
INSTALLATION, 2-1 

Internal program switches, 5-23 
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INTO, 5-55, 5-67, 5-96, 5-101, 
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INVALID, 5-96, 5-128, 9-7 
INVALID KEY, 4-16, 5-98, 5-130 
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I-O-CONTROL, 3-16 
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JUSTIFIED, 4-29, 4-36 
JS, 4-29, 4-36 


KEY, 3-9, 5-96, 5-108, 5-112, 
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LABEL RECORD, 4-8, 4-17, 4-18 
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LEFT, 4-63 

LESS, 5-73 
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Level-number, coding of, 4-3 
4-2 
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5-43 
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LOCK, 5-33, 5-85, 5-96, 5-108, 
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Memory dump, 5-120, 5-122 
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MOD, 5-55, 4-28, 4-30, 4-74, B-8 
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MOVE, 5-77 
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coding of, 4-6 


MULTIPLE FILE TAPE, 3-16, 3-17 
MULTIPLE REEL, 3-8, 3-11 
MULTIPLY, 5-82 


NEGATIVE, 5-74 

NEXT SENTENCE, 5-73, 
NO BACKUP, 3-8, 3-11 
NO DISCONNECT, 6-4 
NO-DATA, 6-5 


5-105 


Non-contiguous working- 
storage, 4-72 
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7-4 


NON-STANDARD, 3-11, 4-8, 4-24 
Non-numeric, 5-13 

NO-ERROR, 3-16 

NO-FORMAT, 3-16 

NO REWIND, 5-33, 5-85, 5-86 


NOT, 5-73, 5-74, 5-75 
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NOTE, 5-83 


NO-TIME-OUT, 6-10, 6-17, 
6-25, 6-26 
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6-23, 
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Numeric literals, 1-5 Letter S, 4-45 
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PURGE, 5-33, 5-112 
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READ, 5-86, 5-96, 6-17, 9-5 
RECORD, 3~16, 4-8, 4-23, 5-101, 
5-108 
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Record description structure, 4-2 


RECORDING MODE, 4-8, 4-24 


RECORDING MODE(S) for 
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implicitly, 4-4 
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RENAMES, 4-4, 4-29, 4-37, 4-61, 
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5-74 
5-112 


REPLACING BY, 5-63 
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SEGMENT-LIMIT, 3-4, 5-19, 5-20 
SELECT, 3-8, 9-7 
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